如何获得Mouse当前指针位置？

Question

在应用程序中如何能得到当前Mouse的指针什置？以便将某个form或者组件动态定位

Answer 1

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin  label1.Caption:=Floattostr(Mouse.CursorPos.X)+';'+Floattostr(Mouse.CursorPos.Y);
  end;

Answer 2

Mouse.CursorPos.X,Mouse.CursorPos.Y获得绝对位置

Answer 3

如果你需要获得鼠标处于窗体内的位置就不要使用绝对位置，而需要经过转换：
Form1.ScreenToClient(Mouse.CursorPos);返回值是相对窗体的TPoint对象。

Answer 4

var
  point: TPoint;
begin
  GetCursorPos(point);
  //point.x,point.y就是（x，y）坐标位置  
  end;