如何在combobox中添加数据并显示检索到的第一条记录
问题如题：
愿准备当用户按下回车键的时候，检索数据库内的表字段并添加到combobox的项目里，然后显示检索到的第一个数据
我的代码如下：
procedure TForm1.ComboBox3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then
if Trim(ComboBox3.text)='' then
begin
Application.MessageBox('请输入疾病名称或拼音码','提示！',0+64);
ComboBox3.SetFocus;
end
else
begin
with DM.icd10 do
begin
Close;
sql.clear;
sql.Add('select disease_name FROM disease where disease_pym like :a or disease_name like :a ');
parameters.parambyname('a').value:='%'+AnsiUpperCase(trim(ComboBox3.text))+'%';
Open;
end;
ComboBox3.Items.Clear;
while NOT DM.icd10.Eof do
Begin
ComboBox3.Items.add(DM.icd10.Fields[0].VALUE);
Dm.icd10.Next;
END;
end;
SendMessage(combobox3.Handle,CB_SHOWDROPDOWN,1,1);
ComboBox3.ItemIndex:=0;//问题就在这里
end;
问题就出在这句ComboBox3.ItemIndex:=0，如果我一加这句combobox3的文本框内就只能输入一个字母，请问这是怎么回事？是我选择的事件错了吗？还是我设置的问题？
[解决办法]
要想实时显示过滤效果
建议写Onchange事件, 数据一变化就刷新列表
