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]);