Имитировать события мыши |
Previous Top Next |
В этом примере курсор мыши сам встает на кнопку и нажимает на нее.
Code: |
procedure TForm1.Timer1Timer(Sender: TObject); var p: TPoint; begin p := Point(Button1.Left + Button1.Width div 2, Button1.Top + Button1.Height div 2); p := Form1.ClientToScreen(p); SetCursorPos(p.x, p.y); p := Point(round(p.x * 65535 / Screen.Width), round(p.y * 65535 / Screen.Height)); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,
p.x, p.y, 0, 0); Application.ProcessMessages; sleep(100); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, p.x, p.y, 0, 0); Application.ProcessMessages; sleep(300); Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, p.x, p.y, 0, 0); end; |
©Drkb::01587
Автор советов: Даниил Карапетян
e-mail: delphi4all@narod.ru
Автор справки: Алексей Денисов
e-mail: aleksey@sch103.krasnoyarsk.su