请问combobox如何实现readonly属性？

Question

希望能实现如下：
用户不能修改，但可以下拉。我可以通过程序来实现添加combobox.text的内容。

Answer 1

老大，把Style设置为csDropDownList的话就不能实现添加combobox.text的功能了。无法显示combobox.text了

Answer 2

//显示
ComboBox1.Items.Add('abc');
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('abc');
//如果不需要了，则删除
ComboBox1.Items.Delete(ComboBox1.Items.IndexOf('abc'));

Answer 3

谢谢 hsmserver ，可以了。不过我想把新添加的item下拉的时候显示在最上面。请问该怎么做？

Answer 4

呵呵，事件可真弄得有点复杂呀!在KeyPress里写代码就可以了
其实就一行代码就可以了：
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

Answer 5

真是高手如云啊。请问我想把新添加的item显示在下拉框的最上面 怎么实现啊？
现在是显示在最下面了

Answer 6

ComboBox1.Items.Insert(0, '最上面');//插到第0个