模拟键盘按键
|
1 2 3 4 5 6 7 8 9 10 11 12 |
void __fastcall TForm1::Button1Click(TObject *Sender) { // 模拟在Edit1组件中按下了字母a键 PostMessage(Edit1->Handle, WM_KEYDOWN, 65, 0); } //--------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { // 模拟在窗体Form1中按下了Tab键 PostMessage(Form1->Handle, WM_KEYDOWN, VK_TAB, 0); } //------------------------------------------ |