如何得到当前鼠标的位置，谢谢

Question

上个帖子忘记问了，呵呵。

Answer 1

POINT mPoint;GetCursorPos(&mPoint);

Answer 2

mouse.CursorPos.X;
mouse.CursorPos.y;

Answer 3

var
tPOINT mPoint;
begin
GetCursorPos(mPoint);

Answer 4

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  p :TPoint;
begin
  GetCursorPos(p);
  Self.Caption :=IntToStr(p.x) + ', ' + IntToStr(p.y);
end;

Answer 5

TMouse *mu;
   mu->CursorPos.x; //鼠标x坐标;
   mu->CursorPos.y; //鼠标y坐标;

Answer 6

var
  p :TPoint;
begin
  GetCursorPos(p);//p存储鼠标的当前位置
  //your codes....
end;