本文整理自网络，侵删。
TlistBox组建是一个滚动的列表框，主要的作用是让用户选择列表中的项目然后进行别的操作。 在这里讲一下列表框中项目与输入字符的自动匹配小功能，此功能比较简单，但相对还是很实用的
首先添加一个ListBox控件和一个Edit控件到窗体上面，设置一下ListBox的AutoComplete属性值为
True，在OnEditKeyUp事件中实现此功能，代码如下：
Procedure TForm1.EditKeyUp(Sender:Tobject;var Key:Word;shift:Tshiftstate);
var
i:integer;
Begin
For i:=1 to Length(trim(Edit.Text)) do
SenderMessage(ListBox1.Handle,WM_CHAR,integer(Edit1.Text),0);
SenderMessage(ListBox1.Handle,WM_CHAR,integer(Key),0);
end
end;
相关阅读 >>
Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法
Delphi excel操作，写了个adodataset转excel的函数
更多相关阅读请进入《Delphi》频道 >>
