Hallo ich möchte das sich mein Cursor von a nach b Bewegt. Ich versuche es mit einer Schleife
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
p:TPoint;
begin
m:=0;
repeat
getcursorPos(p);
SetCursorPos(p.x+m, p.y);
m:=m-1;
sleep(10);
getcursorPos(p);
until p.x=100;
end;
Das Problem ist er läuft bis zum linken rand durch und das Programm hängt
Setze ich
until p.x=100;
auf
until p.x<100;
dann klappt es.
Aber er bleibt nie genau bei p.x=100 stehen. Mal bei 98 mal bei 74....
Was kann ich Hier Ändern ????