怎么样得到鼠标当前的坐标？

Question

我想获取当前鼠标的坐标，怎么获得？

Answer 1

可以用一个函数，可能是getcursorpos();看一下帮助就可以了

Answer 2

var
  P : TPoint;
begin 
  GetCursorPos(p);
  P.x;  //X坐标
  P.y;  //Y坐标
end;

Answer 3

用getcursorpos可以得到绝对坐标。
用onmousemove中的值可以得到当前窗口的相对坐标。

Answer 4

方法很多哦，楼上的方法都行，delphi的控件大部分都有onMouseMove onMouseDown之类的事件，里面定义的参数X,Y就是鼠标当前的坐标哦

Answer 5

对.用theone_jxm()的方法.Delphi在Controls单元定义了Mouse:TMouse

Answer 6

直接使用Mouse全局变量的CursorPos属性就行了

Answer 7

1.用Mouse的CursorPos直接获取坐标
2.在MouseDown,MouseMove事件中有X,Y坐标参数直接使用

Answer 8

getcursorpos得到绝对坐标MouseDown,MouseMove事件中有X,Y坐标参数／／相对于窗体坐标

Answer 9

var
  P : TPoint;
begin 
  GetCursorPos(p);
  showmessage(inttostr(P.x));  //X坐标
  showmessage(inttostr(P.y));  //Y坐标
end;