Kann man die Maus durch Kommandos bewegen ?

[LingNeu]

@dunkel,
danke für den Tipp.
Leider habe ich

Inkompatible Typen 'TShiftState' und 'Enumeration'
bei ssLeft

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
down: TPoint;
move: TPoint;
begin
down := point(random(image1.width), random(image1.height));
move := point(random(image1.width), random(image1.height));
ImageMouseDown(self, mbLeft, ssLeft, down.x, down.y);
ImageMouseMove(self, ssLeft, move.x, move.y);
ImageMouseUp(self, mbLeft, ssLeft, move.x, move.y);
end;

ciao
LingNeu