Home » Tipps & Tricks » System » Tastatur und Maus » Mausclick simulieren

Mausclick simulieren

Die folgende Procedure simuliert einen Linksklick an den angegebenen Koordinaten (X=100, Y=200). Die Koordinaten sind auf die Form bezogen. Es wird damit auch das entsprechende OnClick-Ereignis der Komponente ausgeführt, die sich an diesen Koordinaten befindet.Nach einem MouseDown muss immer auch ein MouseUp durchgeführt werden, um einen vollständigen Klick zu simulieren. Im anderen Fall wird die Maus bis zur nächsten Bewegung als gedrückt behandelt.

procedure TForm1.Timer1Timer(Sender: TObject);
var 
  x, y: Integer;
begin
  x := 100;
  y := 200;
  mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;

Für die anderen Maustasten gilt entsprechend:

  • MOUSEEVENTF_RIGHTDOWN
  • MOUSEEVENTF_RIGHTUP
  • MOUSEEV ENTF_MIDDLEDOWN
  • MOUSEEVENTF_MIDDLEUP