Mouse Move to (x,y) Bewegung sehen

[hathor]

Man kann das auch dynamisch machen:

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
var
p:TPoint;  i, d:Integer;
begin
Memo1.clear;
d:=800 div 20;  //800 Wegpunkte - nur Beispiel, kann man auch berechnen...
for i := 1 to d do
BEGIN
getcursorPos(p); Memo1.lines.add(inttostr(p.X));
SetCursorPos(p.x-(i div 2), p.y);
sleep(20);
END;

for i := d downto 1 do
BEGIN
getcursorPos(p); Memo1.lines.add(inttostr(p.X));
SetCursorPos(p.x-(i div 2), p.y);
sleep(20);
END;
edit1.Text:=inttostr(p.X); //Zur Kontrolle
end;