组合框样式“csDropDownList”在德尔福

Question

我在 delphi 7 中创建了一个表单，并在其上添加了一个组合框。组合框包含项目列表。我不希望用户可以在 Combobox 中输入值，所以我已经设置了

combobox.style := csDropDownList;

但通过代码我想使用 combobox.text := 'New Item'; 但它不起作用。请注意，我想要显示的文本不在项目列表中，并且我不想将其添加到那里。请问这个有什么解决办法吗？

Answer 1

不，这根本不是 Windows 组合框控件的工作方式。

但是，如果您坚持，并且不关心用户会感到困惑，您可以将 Style 设置为 csDropDown，然后

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

按照组合框的 OnKeyPress 进行操作事件。那么用户就无法手动输入文本，而只能从列表中的项目中进行选择。但是，您仍然可以通过设置 Text 属性将文本设置为您喜欢的任何内容（即使它不在列表中）：

ComboBox1.Text := 'Sample';

Answer 2

设置 ItemIndex 属性。如果您还不知道，您可以使用 ComboBox.Items.IndexOf('New Item') 来获取该文本的索引。

Combobox.ItemIndex := Combobox.Items.IndexOf('New item');

Answer 3

下面的示例代码演示了如何绘制自定义文本以响应发送到 ComboBox 控件的父窗口的 WM_DRAWITEM 消息（这应该是示例工作的形式，否则子类化控件或完整绘制项目的控制是必要的）。

要接收此消息，请将控件的 Style 属性设置为“csOwnerDrawFixed”，但不要为 OnDrawItem 事件放置处理程序，以便在所有其他中应用默认绘制。我们干预绘图的情况。

该示例在 ItemIndex 为 -1 时设置文本，但可以在其他情况下进行调整/调整。请注意，绘图代码并不完整或不准确，该示例只是演示了一种实现方法：

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    [..]
  private
    procedure WMDrawItem(var Msg: TWMDrawItem); message WM_DRAWITEM;
  end;

[...]

procedure TForm1.WMDrawItem(var Msg: TWMDrawItem);
var
  Font: HFONT;
begin
  inherited;
  if (Msg.Ctl = ComboBox1.Handle) and (Msg.DrawItemStruct.itemID = $FFFFFFFF) and
      ((Msg.DrawItemStruct.itemAction and ODA_DRAWENTIRE) = ODA_DRAWENTIRE) then begin

    Font := SelectObject(Msg.DrawItemStruct.hDC, ComboBox1.Canvas.Font.Handle);
    SelectObject(Msg.DrawItemStruct.hDC, GetStockObject(DC_BRUSH));

    if (Msg.DrawItemStruct.itemState and ODS_SELECTED) = ODS_SELECTED then begin
      SetDCBrushColor(Msg.DrawItemStruct.hDC, ColorToRGB(clHighlight));
      SetBkColor(Msg.DrawItemStruct.hDC, ColorToRGB(clHighlight));
      SetTextColor(Msg.DrawItemStruct.hDC, ColorToRGB(clHighlightText));
    end else begin
      SetDCBrushColor(Msg.DrawItemStruct.hDC, ColorToRGB(clWindow));
      SetBkColor(Msg.DrawItemStruct.hDC, ColorToRGB(clWindow));
      SetTextColor(Msg.DrawItemStruct.hDC, ColorToRGB(clWindowText));
    end;

    FillRect(Msg.DrawItemStruct.hDC, Msg.DrawItemStruct.rcItem, 0);
    TextOut(Msg.DrawItemStruct.hDC, 4, 4, '_no_selected_item_', 18);

    SelectObject(Msg.DrawItemStruct.hDC, Font);
  end;
end;

Answer 4

我认为您想要正常的事情，即在尚未进行选择时在组合框中显示某些内容。空白矩形的瞬间。想象一个充满空白组合框的表单...;)

我所看到的大多数程序员所做的是将第一项作为标题显示在组合框中。

因此，在 FormCreate 中（填充 ComboBox 后），将其 ItemIndex 设置为 0，这将显示标题。

在其 OnChange 事件中，如果选择了项目 0，您可以选择不采取任何操作（“真实”项目的索引基数为 1），或者如果 <<，则获取 ItemIndex-1 并跳过操作。 0.

对于每个第一次使用 Combobox 的人来说，这一定是一个非常普遍的抱怨。我不明白为什么没有一个编码员认识到它。

Borland 等人所要做的就是用 ItemIndex=0 初始化一个新的 ComboBox，这样混乱就会消失。必须设置索引 0 当然并不明显 - 因为单击时会看到空行，所以逻辑结论是它的索引为 0。可能他们希望为设计人员提供添加标签的选项而是在组合框之外。