请教大侠如何获得鼠标当前的像素位置？

[beyondmonkey]

[taxi]

var
p: TPoint;
begin
GetCursorPos(p);
end;

[jimsuker]

up!

[咚咚咚咚咚咚]

var
p: TPoint;
begin
GetCursorPos(p);
end;

[icefire_cwj]

同意楼上的

[yopeng]

GetCursorPos(p);

[王集鹄]

//同意上面的,但还是要给大家看一个更简单的
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := Format('Mouse.CursorPos.X:%d, Mouse.CursorPos.Y:%d',
[Mouse.CursorPos.X, Mouse.CursorPos.Y])
end;

[知足常乐]

var
p: TPoint;
begin
GetCursorPos(p);
end;