2008-11-14 112 views
11

我想在TWinControl中顯示自定義提示,但我無法弄清楚如何獲取它的位置。如何獲取TWinControl的X,Y位置(相對於屏幕)

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

編輯:

我發現的TControl物業ClientOrigin返回我所料,是正確使用ClientOrigin.X和ClientOrigin.Y?

回答

32

TControl.ClientToScreen爲您提供控件中給定點的屏幕座標。

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

+1比beïng比我快2秒;-)。 – 2008-11-14 13:10:19

相關問題