5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
moudy 2002-08-13
- 打赏
- 举报
好了，谢谢大家了。
oracle_lover 2002-08-13
- 打赏
- 举报
var
ptCursor: TPoint;
begin
//获取鼠标的位置
GetCursorPos(ptCursor);
end;
想知道详细情况：光标放到TPoint上，按F1；光标放到GetCursorPos上，按F1
其实楼上各位已说得很好了。自己动手试试吧。
ptCursor: TPoint;
begin
//获取鼠标的位置
GetCursorPos(ptCursor);
end;
想知道详细情况：光标放到TPoint上，按F1；光标放到GetCursorPos上，按F1
其实楼上各位已说得很好了。自己动手试试吧。
moudy 2002-08-13
- 打赏
- 举报
不会吧！没人答了？
ddvboy 2002-08-12
- 打赏
- 举报
ok
foreveryday007 2002-08-12
- 打赏
- 举报
樓上的方法應該行
l_xiaofeng 2002-08-12
- 打赏
- 举报
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Caption:=inttostr(x);
label2.Caption:=inttostr(y);
end;
最简单的方法.
Y: Integer);
begin
label1.Caption:=inttostr(x);
label2.Caption:=inttostr(y);
end;
最简单的方法.
Num1 2002-08-12
- 打赏
- 举报
GetCursorPos
moudy 2002-08-12
- 打赏
- 举报
to： l_xiaofeng(流水不腐) 不好意思，我是要自己得到位置，而不是系统得到。
GetCursorPos可能可以，但能不能说具体点。比如得到后用个label显示出来。
GetCursorPos可能可以，但能不能说具体点。比如得到后用个label显示出来。
