Question

delphi如何让combobox 不能用键盘输入？

delphi如何让combobox 不能用键盘输入？意思可以选择列表框，但不能更改里面的内容。同时里面的内容不只有列表框里面有，用程序还能写进去，就是控制不能人工用键盘录入。

用Style属性只能是选择，但原来text的内容又不显示了，并且在程序里面写又不行。

我记得应该是用change或是onkeydown这样的事件来写吧，但太长时间不用，怎么写给忘了。求高人解答。

Answer 1

Combobox1 里面的 style 属性改成 csDropDownList
如果要选中第一个，Combobox1.Itemindex:= 0;

Answer 2

在窗体加载事件中设置它的Style和ItemIndex
procedure TfTest.FormCreate(Sender: TObject);
begin
ComboBox1.Style := csDropDownList; // 只能从列表中读值
ComboBox1.ItemIndex := 0; // 默认显示第一条数据
end;
你可以把原来text的内容作为Items中的第一项啊，这样就能在初始化后显示原来text的内容了。
在change中写应该不行吧，因为你在选择列表值时也会触发该事件的。onkeydown中好像也
不行。用Style是最方便的了，即使你要验证ComboBox中的值，最多只加一个判断，判断一下
是不是第一条提示数据就行了

Answer 3

你印象中的应该是onkeypress吧
if key in ['a'..'z'] then

但是好像不符合你描述的需求

Answer 4

tcombobox.style:=csDropDownList;

Answer 5

非常简单。。在OnKeyPass事件写 key=#0;
好了。。就不能输入了