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 ???