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 xe 的 tdictionary

Delphi gdi+ 文本输出

Delphi webbrowser通过遍历id查找元素是否存在

Delphi 释放res资源文件

Delphi 把窗体上的所有edit清空怎么做

Delphi crc算法的实现

Delphi twebbrowser控件编程

Delphi webbroker 输出图片的问题

Delphi android服务向导

Delphi文件复制函数

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

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