怎么取出鼠标坐标？

Question

procedure DropFile(var Message: TMessage); message WM_DROPFILES;procedure TForm1.WMNID(var msg:TMessage );
begin
  case msg.LParam of
    WM_LBUTTONUp: Form1.Visible:=not Form1.Visible;
    WM_RBUTTONUP:  PopupMenu1.Popup(0,0);
  end;
end;
怎么取出鼠标坐标？

Answer 1

Mouse.CursorPos.X
  Mouse.CursorPos.Y
就是了...

Answer 2

Var
 P : TPoint;
begin
  GetcursorPos(P);
  P.x ......
  P.y ......
end;

Answer 3

用这个吧
Var
 P : TPoint;
begin
  GetcursorPos(P);
  P.x ......
  P.y ......
end;

Answer 4

坐标有相当的和绝对的
Mouse.CursorPos.X
Mouse.CursorPos.Y是绝对的，相当于屏幕而言的
通过Windows.ScreenToClient转换之后的是相对的看你的需要了