Mouse Move to (x,y) Bewegung sehen

[Natcree]

Habe es jetzt so gelöst

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
p:TPoint;
begin
edit1.Text:=''; //zur Kontrolle
edit1.Repaint;
m:=0;
repeat
getcursorPos(p);
SetCursorPos(p.x+m, p.y);
m:=-10;
sleep(10);
until p.x<120;
if p.x<120 then
getcursorPos(p);
m:=0;
repeat
getcursorPos(p);
SetCursorPos(p.x+m, p.y);
m:=-1;
sleep(10);
until p.x=100;
edit1.Text:=inttostr(p.X); //Zur Kontrolle
end;

hat noch jemand einen Vorschlag ???

[DeddyH]

Ja, 2: rücke mal vernünftig ein, damit wir das hier auch nachvollziehen können, und teste den Code mal mit der initialen Maus-Koordinate von z.B. X: 90 und Y:50.

[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;

[DeddyH]

Nicht, wenn es eine globale Variable ist.

[hathor]

Eine globale Varable m wird in dieser Procedure nicht gebraucht.

[DeddyH]

Aber auch keine lokale, wenn es eine globale gibt. Ich mag zwar globale Variablen auch nicht sonderlich, aber was soll' s?

[Aphton]

Du kannst da auch noch eine Interpolation einführen, sodass du dann nicht immer eine Art von beschleunigte (quadratische) Bewegung hast.