如何获取鼠标的位置（X，Y）？

Question

1、用什么函数取鼠标的当前位置（X，Y）？
2、控件的left,top值与鼠标的x,y值的单位是什么，能否统一？

Answer 1

有
Mouse.CursorPos.X
和
Mouse.CursorPos.Y

Answer 2

Tmouse.cursorpos.x
Tmouse.cursorpos.y

Answer 3

var
  a: Tpoint;
begin
getcursorpos(a);
showmessage('x: is ' + inttostr(a.x) + ' y: is ' + inttostr(a.y));应该都是象术

Answer 4

var iX0,iY0: integer;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  iX0:=X;
  iY0:=Y;
end;

Answer 5

var 
  PT : TPoint;
begin
 GetCursorpos(PT);
end;
pt.x,pt.y 为坐标

Answer 6

1）Mouse.CursorPos
2)pixle

Answer 7

1)
var 
  PCursor:TPoint;
....
  GetCursorPos(PCursor);
  ShowMessage(Format('(%d,%d)',[PCursor.X,PCursor.Y]));
//不过这个结果是以屏幕为基准的
2)
一样的，不过坐标的基准不一样，控件的Left,Top是以它的Parent为基准。要用
ClientToStreen,StreenToClient,MapWindowPoints来转化一下