Home » Tipps & Tricks » Komponenten » Buttons » Mausklick auf einen Button simulieren

Mausklick auf einen Button simulieren

Um einen Mausklick auf einen Button zu simulieren, senden Sie die WM_LBUTTONDOWN-Botschaft, um den Button zu drücken und anschließend die WM_LBUTTONUP-Nachricht, um ihn wieder loszulassen.Im folgenden Beispiel wird ein vollständiger Klick auf den Button „Button1“ simuliert:

procedure TForm1.Button7Click(Sender: TObject);
begin
  Button1.Perform(WM_LBUTTONDOWN, 0, 0);
  Sleep(200);
  Button1.Perform(WM_LBUTTONUP, 0, 0);
end;

Es werden auch die jeweiligen Maus- und Klick-Ereignisse ausgelöst.