本文整理自网络,侵删。
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 d10.x安卓app开发中简单使用原生toast
Delphi android 安卓系统 关闭打开(显示隐藏)输入法
Delphi 字符串中末位是双字节字符的处理(避免最后一位为乱码)
更多相关阅读请进入《Delphi》频道 >>