怎么在鼠标双击事件中取得鼠标当前位置？？？？？

Question

怎么在鼠标双击事件中取得鼠标当前位置？？？？？

Answer 1

procedure TForm1.FormDblClick(Sender: TObject);
begin
  ShowMessage(' x ' + inttostr(mouse.CursorPos.X) +
    ' y' + inttostr(mouse.CursorPos.Y));
end;

Answer 2

Mouse.CursorPos.x
Mouse.CursorPos.y

Answer 3

用api函数GetCursorPos这个，，，里面有一个tpoint类的实例，，你要传一下，，就可以了，，var
a:tpoint;
begin
GetCursorPos(a);
showmessage(inttostr(a.left));
showmessage(inttostr(a.top));
end;