Button gedrückt lassen

[Uncle Cracker]

Kannst ja auch damit was probieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Perform(WM_LButtonDown,0,0);
  Sleep(200);
  Button1.Perform(WM_LButtonUp,0,0);
end;