5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
ihihonline 2002-03-15
- 打赏
- 举报
随便一个事件都可以；
var
P:tpoint;
beig
getcursorpos(P)
end;
...
var
P:tpoint;
beig
getcursorpos(P)
end;
...
blackfiles 2002-03-15
- 打赏
- 举报
用API，
GetCursorPos
GetCursorPos
jiaorg 2002-03-15
- 打赏
- 举报
VAr
t:tpoint;
begin
GEtcursorpos(t);
t.x,t.y为X，Y的坐标，
end;
t:tpoint;
begin
GEtcursorpos(t);
t.x,t.y为X，Y的坐标，
end;
