delphi listbox自动获取列表框中的组件焦点

本文整理自网络，侵删。

 
示例：delphi listbox自动获取列表框中的组件焦点
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i:Integer;
begin
   for i:= 1 to Length(Trim(Edit1.text))do
    SendMessage(ListBox1.Handle,WM_CHAR,Integer(Edit1.Text[i]),0);
  SendMessage(ListBox1.Handle,WM_CHAR,Integer(Key),0);
end;



 

相关阅读 >>

Delphi winsock 域名获取远程服务器ip

Delphi 单击最小化按钮隐藏单击托盘显示

Delphi xe5开发android程序调用电话相关功能(短信息和电话)

Delphi cb_addstring 与lb_addstring的区别？

Delphi强制关闭执行程序(杀进程)

Delphi 将dbgrid的数据导出到excel文件保存

Delphi 获取所有磁盘分区

Delphi 程序窗体最大化、组件居中显示代码

Delphi 获得每个进程的cpu使用率

Delphi 反转字符串方法2

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

转载请注明出处：木庄网络博客 » delphi listbox自动获取列表框中的组件焦点