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.