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

【问题标题】：How can I get the X,Y position of a TWinControl (relative to the screen)如何获得 TWinControl 的 X、Y 位置（相对于屏幕）
【发布时间】：2008-11-14 12:59:18
【问题描述】：

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

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

编辑：

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

【问题讨论】：

标签： delphi delphi-2009

【解决方案1】：

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

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

【讨论】：

Point -- Delphi 有一个非常奇怪的全局函数命名策略 ;-)