delphi - 如何获得 TWinControl 的 X、Y 位置（相对于屏幕）

Question

我试图在 TWinControl 中显示自定义提示，但我不知道如何获得它的位置。

使用位置 0,0 会在我的屏幕顶部（窗口外）显示提示，所以我猜它一定是屏幕上控件的位置。

编辑：

我找到了返回我期望的 TControl 属性 ClientOrigin，使用 ClientOrigin.X 和 ClientOrigin.Y 是否正确？

Answer 1

TControl.ClientToScreen为您提供控件内给定点的屏幕坐标。

lPoint := Panel1.ClientToScreen(Point(0,0));
Label1.Caption := Format('Screen: %d, %d', [lPoint.X, lPoint.Y]);