老问题：如何获得鼠标位置

Question

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label1.Caption:=inttostr(x);
  label2.Caption:=inttostr(y);
end;
最简单的方法.

Answer 1

to： l_xiaofeng(流水不腐) 不好意思，我是要自己得到位置，而不是系统得到。
GetCursorPos可能可以，但能不能说具体点。比如得到后用个label显示出来。

Answer 2

var
 ptCursor: TPoint;
begin
  //获取鼠标的位置
  GetCursorPos(ptCursor);
end;想知道详细情况：光标放到TPoint上，按F1；光标放到GetCursorPos上，按F1其实楼上各位已说得很好了。自己动手试试吧。