Плавное передвижение курсора

[W0LF]

Здравствуйте, помогите мне разобраться вот в чом...
Надо зделать плавное передвижение курсора, от начальной позиции, до точки, которая будет вводиться в программе, SetCursorPos сразу перемещает на данную точку, а как зделать плавное передвижение?

[Alex Cones]

Попробуйте в цикле SetCursorPos между тиками цикла ставьте Апплик.Процессмессаджес.

[W0LF]

Так если в цыкле, то будет перемещаться сначало по Х, а потом по Y

В цыкле оно рывками и очень быстро перемещаеться, и к тому же как узнать, ведь цыкл может двигаться к число которое меньше начальной Х, там надо будет downto, а если больше to...

[raxp]

а вы делайте по прямой между двумя точками... формулу напомнить или сами найдете?

[Alex Cones]

Так если в цыкле, то будет перемещаться сначало по Х, а потом по Y

О_о Вы меня смущаете...

X2 = 350
X1 = 100
Y2 = 600
Y1 = 300

XDelta := (X2-X1)/300;
YDelta := (Y2-Y1)/300;
XN:=X1;
YN:=Y1;
For N:=1 to 300 do
 Begin
  SetCursorPos(XN,YN);
  XN:=XN+XDelta;
  YN:=YN+YDelta;
 End;

[W0LF]

Незнаю, все также гипер-рывками... ((
Цыкл проходит же почти мгновенно, вот из-за этого и резкое телепортирование курсора...

[Alex Cones]

Увеличьте 300 до 600 и проставьте Round

[W0LF]

Все тот же эффект...

Сообщение от raxp

а вы делайте по прямой между двумя точками... формулу напомнить или сами найдете?

Напомните)

[raxp]

нехорошо конечно sleep-ы, лучше по таймеру сделайте...

var x,y, x1,x2,y1,y2: integer;
    t: tpoint;
begin
 getcursorpos(t);
 x1:= t.x; y1:= t.y;
 x2:= x1 + 300; y2:= y1+ 100;

 for x:=x1 to x2 do begin
  y:= trunc((x-x1)*(y2-y1)/(x2-x1)+ y1);
  application.ProcessMessages;
  sleep(10);
  setcursorpos(x,y)
 end

[W0LF]

raxp блогадарю, работает, перемещает плавно...
А как переместить например на точку 0;50 ? как введя точку на нее перемещать?