如何获取TWinControl的X,Y位置(相对于屏幕)

时间:2008-11-14 12:59:19

标签: delphi delphi-2009

我正在尝试在TWinControl中显示自定义提示,但我无法弄清楚如何获得它的位置。

使用位置0,0显示屏幕顶部(窗口外)的提示,所以我猜它必须是屏幕上控件的位置。

修改

我找到了TControl Property ClientOrigin,它返回了我的预期,使用ClientOrigin.X和ClientOrigin.Y是否正确?

1 个答案:

答案 0 :(得分:38)

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

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