Delphi 让鼠标慢慢移动
答案:3 悬赏:30 手机版
解决时间 2021-11-20 19:01
- 提问者网友:爱唱彩虹
- 2021-11-19 20:00
Delphi 让鼠标慢慢移动
最佳答案
- 五星知识达人网友:低音帝王
- 2021-11-19 20:07
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;
这可以让鼠标慢慢移动,但要许多不好的地方。
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;
这可以让鼠标慢慢移动,但要许多不好的地方。
全部回答
- 1楼网友:狂恋
- 2021-11-19 21:54
只能一点一点移,你看一下按键精灵就知道了
- 2楼网友:逐風
- 2021-11-19 21:00
可以用一个循环一点一点地移!追问我是新手,写个代码给我吧
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯