5,402
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
tazhch 2002-04-06
- 打赏
- 举报
var
p:tpoint;
begin
getcursorpos(p);
end;
//p.x,p.y 就是光标位
p:tpoint;
begin
getcursorpos(p);
end;
//p.x,p.y 就是光标位
CeleronII 2002-04-06
- 打赏
- 举报
用API函数GetCursorPos()
jishiping 2002-04-06
- 打赏
- 举报
Mouse.CursorPos
firetoucher 2002-04-06
- 打赏
- 举报
getcursorpos
duke7y 2002-04-06
- 打赏
- 举报
getcursorpos(x,y);
wylove 2002-04-06
- 打赏
- 举报
送你一个实例，不妨试一下：
procedure TForm1.Button4Click(Sender: TObject);
var
mypt:TPoint;
begin
GetCursorPos(mypt);
edit1.Text:=intTostr(mypt.x);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
mypt:TPoint;
begin
GetCursorPos(mypt);
edit1.Text:=intTostr(mypt.x);
end;
jian_111 2002-04-06
- 打赏
- 举报
getcursorpos(point:tpoint)即可
david_wwb 2002-04-06
- 打赏
- 举报
好象Mouse有这个属性的
dancemaple 2002-04-06
- 打赏
- 举报
如果是Memo或RichEdit，都有CaretPos属性
