TEdit+TCombobox组合实现模糊匹配动态下拉

       在数据库应用程序中经常会使用“输入并模糊匹配至下拉框中”这一功能，标准控件中COMBOBOX能实现输入下拉，但是一旦下拉框中的内容动态改变，输入栏自动清空。比较好的解决办法就是edit+combox重叠。

       edit中OnChange事件

procedure TfrmMain.edit1Change(Sender: TObject); begin with qry1 do begin SQL.Clear; SQL.Add(查询语句); Open; cbo1.Items.Clear; while not Eof do begin cbo1.Items.Add(FieldByName('字段').AsString); Next; end; end; end; 

      combox的选中事件，要激活edit控件，并将数据写到edit控件

procedure TfrmMain.cbo1Select(Sender: TObject); begin edt1.Text:=cbo1.Text; edt1.SetFocus; end; 

       这时候有一个问题，下拉列表已经下拉，这时候我输入TAB键并不能跳转到下一个控件。此时使用KEYPRESS时间捕捉TAB键并来执行跳转

procedure TfrmMain.edt1KeyPress(Sender: TObject; var Key: Char); begin if(Key=#9) then begin cbo1.DroppedDown:=False; Perform(WM_NEXTDLGCTL,0,0); end; end; 

这样就基本实现了。