delphi - Delphi中的组合框样式'csDropDownList'

Question

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

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';