如何在表单构建器6中获取鼠标坐标

Question

我想在表格上使用鼠标坐标，并计算光标与其他点之间的距离。

但我找到的代码只给你整个屏幕上的坐标..不是 在表格上。 我也发现你可以在屏幕坐标和表格坐标之间进行转换，但我该怎么做呢？

我还没找到实际工作的例子

函数 ScreenToClient 表示未定义的符号hWnd ...

Answer 1

如果您调用Win32 API ScreenToClient()函数，则必须为其提供HWND，例如：

POINT Pt = Mouse->CursorPos;
Pt = ::ScreenToClient(this->Handle, &Pt);

但是，VCL UI控件也有自己的ScreenToClient()方法继承自TWinControl，例如：

TPoint Pt = this->ScreenToClient(Mouse->CursorPos);