смещение курсора на 1px

[xslamerx]

добрый день, в delphi не силён, но немного понимаю. Цель сделать небольшую програмку которая при запуске шевелила бы мышью на 1 пиксель от текущих координат туда-обратно по любой оси. нашел код

procedure TForm1.Timer1Timer(Sender: TObject); {данная ф-ия каждую секунду смещает курсор на (0,0)}
var
p: TPoint;
x_drift,y_drift:integer;
begin
x_drift:=StrToInt(Edit1.Text);
y_drift:=StrToInt(Edit2.Text);
if GetCursorPos(p)=true then SetCursorPos(p.X+x_drift,p.Y+y_drif t);
end;

procedure TForm1.Start(Sender: TObject); {по нажатию на кнопку запускается работа программы}
begin
Timer1.Enabled:=true;
BitBtn1.Visible:=false;
BitBtn2.Visible:=true;
end;

procedure TForm1.Stop(Sender: TObject); {по нажатию на кнопку останавливается работа программы}
begin
Timer1.Enabled:=false;
BitBtn2.Visible:=false;
BitBtn1.Visible:=true;
end;




но тут немного не то, пытался менять значения Х и У не вышло курсор уходит в левый верхний угол экрана. Помогите чем сможете ))

[3D Hunter]

Тут силы не видно не только в делфи, но и в логике. А как вы думаете, почему только вправо и вниз он смещается? Правильно, потому что дельта-значения только положительные. И задача немного сложнее, чем обычный random, уже потому, что придется контролировать признак ухода с основной точки, и следующим шагом менять координаты в обратную сторону по осям.

[xslamerx]

На минус я пытался менять и курсор уходил в левый верхний угол

[BDA]

x_drift,y_drift:integer;

procedure TForm1.Timer1Timer(Sender: TObject); {данная ф-ия каждую секунду смещает курсор на (0,0)}
var
p: TPoint;
begin
if GetCursorPos(p)=true then begin
SetCursorPos(p.X+x_drift,p.Y+y_drift);
x_drift:=-x_drift;
y_drift:=-y_drift;
end;
end;

procedure TForm1.Start(Sender: TObject); {по нажатию на кнопку запускается работа программы}
begin
x_drift:=StrToInt(Edit1.Text);
y_drift:=StrToInt(Edit2.Text);
Timer1.Enabled:=true;
BitBtn1.Visible:=false;
BitBtn2.Visible:=true;
end;

procedure TForm1.Stop(Sender: TObject); {по нажатию на кнопку останавливается работа программы}
begin
Timer1.Enabled:=false;
BitBtn2.Visible:=false;
BitBtn1.Visible:=true;
end;