11
我想在TWinControl中顯示自定義提示,但我無法弄清楚如何獲取它的位置。如何獲取TWinControl的X,Y位置(相對於屏幕)
使用位置0,0顯示在屏幕頂部(窗口外)的提示,所以我猜它必須是屏幕上控件的位置。
編輯:
我發現的TControl物業ClientOrigin返回我所料,是正確使用ClientOrigin.X和ClientOrigin.Y?
我想在TWinControl中顯示自定義提示,但我無法弄清楚如何獲取它的位置。如何獲取TWinControl的X,Y位置(相對於屏幕)
使用位置0,0顯示在屏幕頂部(窗口外)的提示,所以我猜它必須是屏幕上控件的位置。
編輯:
我發現的TControl物業ClientOrigin返回我所料,是正確使用ClientOrigin.X和ClientOrigin.Y?
TControl.ClientToScreen爲您提供控件中給定點的屏幕座標。
lPoint := Panel1.ClientToScreen(Point(0,0));
Label1.Caption := Format('Screen: %d, %d', [lPoint.X, lPoint.Y]);
+1比beïng比我快2秒;-)。 – 2008-11-14 13:10:19