Forum: Programmieren allgemein
by Natcree,
29. Nov 2013
Habe es jetzt so gelöst
procedure TForm1.Button3Click(Sender: TObject);
var
p:TPoint;
begin
edit1.Text:=''; //zur Kontrolle
edit1.Repaint;
m:=0;
repeat
Forum: Programmieren allgemein
by Natcree,
29. Nov 2013
so nun habe ich sleep auf (10) gesetz der mauszeiger brauch aber zu lange.
nunmehr würde ich m:=-10 setzen dann bekommt er aber nicht die 100 wenn ich until p.x=100 setze.
wie kriege ich das am besten gelöst.
eine möglichkeit wäre sicherlich until p.x <200 zusetzen und dann mit einer weitere schleife mit m=-1 auf 100 runterlaufen zu lassen. aber es hängt ja auch immer davon ab an welcher...
Forum: Programmieren allgemein
by Natcree,
29. Nov 2013
m:=m-1;
Das war es
habe es geändert auf
m:=-1;
Forum: Programmieren allgemein
by Natcree,
29. Nov 2013
Hallo ich möchte das sich mein Cursor von a nach b Bewegt. Ich versuche es mit einer Schleife
procedure TForm1.Button3Click(Sender: TObject);
var
p:TPoint;
begin
m:=0;
repeat
getcursorPos(p);
SetCursorPos(p.x+m, p.y);