选择combobox的items的选项来触发各个选项对应的事件,可以尝试以下示例代码:
procedure TForm2.Button1Click(Sender: TObject)begin
ComboBox1.ItemIndex := 3//选择combobox的第4个选项
ComboBox1Change(Self) //触发事件
end
procedure TForm2.ComboBox1Change(Sender: TObject)
begin
ShowMessage(ComboBox1.Items[ComboBox1.ItemIndex])
end
把Autocomplete设置为False然后在OnKeypress事件中,自己实现自动补充功能
=======================================================
问题补充:明显还是不行,我已经试过了。只是没有说而已。。
我晕,二楼的,还是不行啊。你说的ONKEYPRESS里面实现自动补充功能,我用的语句是这样:combobox1.autocomplete:=true
还是会出现一样的效果。
我的意思并不是再去设置AutoComplete,而根据当前的Text,去查找所有的Item,如果查找到就补全。也就是自己用代码实现被全。
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)