delphi - TWinControl の X、Y 位置を取得するにはどうすればよいですか (画面に対して)

Question

TWinControl でカスタム ヒントを表示しようとしていますが、その位置を取得する方法がわかりません。

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