Delphi输入字符与TlistBox项目匹配


本文整理自网络,侵删。

  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 textfile utf8编码读写

Delphi 如何判断某一窗口最大化

快速上手Delphi三十六计之输入处理篇

Delphi d10.x安卓app开发中简单使用原生toast

Delphi android 安卓系统 关闭打开(显示隐藏)输入法

Delphi 查找某目录下的特定文件

Delphi格式化wmi中的datetime

Delphi 字符串中末位是双字节字符的处理(避免最后一位为乱码)

Delphi计算md5

Delphi webbrowser控件的事件

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...