PostMessage模拟按键

最新推荐文章于 2024-02-16 21:53:14 发布

weixin_30446197

最新推荐文章于 2024-02-16 21:53:14 发布

阅读量1.7k

点赞数

文章标签： c#

原文链接：http://www.cnblogs.com/xe2011/archive/2012/06/02/2531636.html

版权

功能说明：PostMessage模拟按键 
procedureTForm1.Button1Click(Sender: TObject);
//模拟在Edit控件中按下a键
begin
  PostMessage(Edit1.Handle, WM_KEYDOWN,65,0);
end;



procedureTForm1.Timer1Timer(Sender: TObject);
//模拟在窗体中按下Tab键
begin
  PostMessage(Form1.Handle, WM_KEYDOWN, VK_TAB,0);
end;



procedureTForm1.Button2Click(Sender: TObject);
//启动Timer控件
begin
Timer1.Enabled:=true;
end;