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

[Alex Cones]

trunc((x-x1)*(y2-y1)/(x2-x1)+ y1)

Я бы все-таки использовал Round... Он вроде немного плавности подбавит...

[W0LF]

Вот есть точка TPoint, как переместить плавно на ее координаты, в примере raxp'a оно перемещает с добавлением к координатам курсора, а если передвинуть надо на 0,0 - то нечего не выйдет...

[raxp]

Я бы все-таки использовал Round...

согласен.

Вот есть точка TPoint

вот и задавайте x2, y2 от второй точки... ясно, что нужно проверять условие x2>x1, если наоборот, то for x:=x1 downto x2

[Alex Cones]

а если передвинуть надо на 0,0 - то нечего не выйдет...

Ставьте условие или используйте ABS. А то и вообще, оставьте как есть, ведь если X2-X1 < 0, то XN + (-XDelta) даст XN - XDelta. А еще я бы посоветовал вынести все это дело в функцию MoveCursorTo(X,Y):Boolean;
И забудьте про неразумный For! Используйте While и прибавляйте вручную.

[W0LF]

Взял

x2:= 0; 
y2:= 0;

но курсор стоит и недергаеться...

[raxp]

13, 14 посты.

[W0LF]

Такс, спс, работает, но вот загвоздка, если координата курсора y=0 и задать ей координату тоже y=0 то выйдет ошибка

[Alex Cones]

Когда вынесли в отдельную функу делайте проверку на совпадение и только при разнице пропускайте дальше. А если разнится только одна координата - измените пункт назначения на один пиксель.

[W0LF]

Проблема в следующем, если новая точка перемещения по Y равна позици курсора по Y - то ошибка...

Неа, работает некоректно, если ввести например x=1000 и y=60 - перемещает мгновенно, и другие координаты тоже резко переводит... ((((

[Alex Cones]

Проблема стала ясна еще в Вашем предыдущем посте. Вот Ваше решение:

Function MoveCursorTo(Var X,Y:SmallInt):Boolean;
 Var
  CX,XY:SmallInt;
 begin
  GetCursorPos(CX,CY);
  If CX = X Then Inc(X);
  If CY = Y Then Inc(Y);
  ...
  GetCursorPos(CX,CY);
  If (CX = X) And (CY = Y) Then Result:=TRUE;
 End;