PostMessage模拟按键

功能说明：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;

来自为知笔记(Wiz)