单击控件时如何获取鼠标坐标？

Question

在 TImage 的 OnClick 事件中，我想提取鼠标的 x,y 坐标。 我更喜欢它们与图像的关系，但与形式或窗口的关系也同样好。

Answer 1

Mouse.CursorPos 包含 TPoint，TPoint 又包含 X 和 Y 位置。 该值采用全局坐标，因此您可以使用 ScreenToClient 例程将屏幕坐标转换为窗口坐标来转换为表单。

根据 Delphi 帮助文件，Windows.GetCursorPos 可能会失败，Mouse.CursorPos 会包装它以在失败时引发 EOsException。

var
  pt : tPoint;
begin
  pt := Mouse.CursorPos; 
  // now have SCREEN position
  Label1.Caption := 'X = '+IntToStr(pt.x)+', Y = '+IntToStr(pt.y);
  pt := Image1.ScreenToClient(pt);
  // now have Image position
  Label2.Caption := 'X = '+IntToStr(pt.x)+', Y = '+IntToStr(pt.y);
end;

注意：如果您在 ScreenToClient 方法中省略“Image1”，它将引用表单。

Answer 2

Mouse.CursorPos 属性将告诉您鼠标的当前位置。 如果计算机运行缓慢，或者您的程序对消息的响应速度很慢，则它可能与 OnClick 事件首次发生时鼠标所在的位置不同。 要获取单击鼠标按钮时鼠标的位置，请使用 GetMessagePos。 它报告屏幕坐标； 使用 TImage.ScreenToClient 转换为客户端坐标。

另一种方法是自己处理 OnMouseDown 和 OnMouseUp 事件； 它们的参数包括坐标。 请记住，两个事件都需要发生才能发生点击。 您可能还想检测拖动操作，因为您可能不希望将拖动视为单击。

Answer 3

正如其他人所说，您可以使用 Mouse.CursorPos 或 GetCursorPos 函数，但您也可以只处理 OnMouseDown 或 OnMouseUp 事件而不是 OnClick。 通过这种方式，您可以将 X 和 Y 值作为事件处理程序的参数，而无需进行任何额外的函数调用。

Answer 4

这个怎么样？

procedure TForm1.Button1Click(Sender: TObject);
var
MausPos: TPoint;
begin
  GetCursorPos(MausPos);
  label1.Caption := IntToStr(MausPos.x);
  label2.Caption := IntToStr(MausPos.y);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  SetCursorPos(600, 600);
end;

在网上的某个地方发现了一次并将其保存在我的codesnippet DB中:)

此页面 可能会解决您所有的问题，但是...似乎有从客户端到屏幕坐标再返回的功能。

祝您好运！

Answer 5

至 Firemonkey (FMX)：

var
  p: TPointF;
begin
  p := Screen.MousePos;
end;