delhpi中怎样获得鼠标当前位置？

Question

在delhpi中怎样获得鼠标当前位置？
谢谢

Answer 1

TWMMouse = packed record
    Msg: Cardinal;
    Keys: Longint;
    case Integer of
      0: (
        XPos: Smallint;
        YPos: Smallint);
      1: (
        Pos: TSmallPoint;
        Result: Longint);
  end;

Answer 2

var  xcursor:tmouse;
x,y:integer;
begin
    xcursor:=tmouse.Create;
    x:=xcursor.CursorPos.X;
    y:=xcursor.CursorPos.Y;
end;

Answer 3

不用创建tmouse对象，因为已经自动创建了！直接mouse.cursorpos就可以

Answer 4

stanely(俺是邢她汉子) 的方法最简单有效。