Question

Delphi 让鼠标慢慢移动

从A点（ax,ay）移动到B点（bx,by）
用SetCursorPos（bx,by）是一下子就变过去了，怎么实现慢点移动过去，就像人拖动鼠标一样，最好有个延时可以自行设定

Answer 1

var
x1,y1,x2,y2:Integer;
i,j:Integer;
begin
x1:=btn2.Left;替换（from.left+50）
x2:=btn1.Left;替换（from.left+100）
y1:=btn2.Top; 替换(from.top+100)
y2:=btn1.Top; 替换(from.top+300)
SetCursorPos(x1,y1);
for I := 0 to x2-x1 do(注意x2-x1 要大于0)
begin
SetCursorPos(x1+i,y1+i div（线的斜率）);替换SetCursorPos(x1+i,y1+4*i);
Sleep(10);
end;
SetCursorPos(x2,y2);
end;
这可以让鼠标慢慢移动，但要许多不好的地方。

Answer 2

可以用一个循环一点一点地移!

追问

我是新手，写个代码给我吧

Answer 3

只能一点一点移，你看一下按键精灵就知道了