Jak mogę uzyskać pozycję X, Y sterownika TWinControl (względem ekranu)?

Question

Próbuję pokazać niestandardową wskazówkę w TWinControl, ale nie mogę się dowiedzieć, jak uzyskać jego pozycję.

Korzystanie z pozycji 0,0 pokazuje wskazówkę na górze ekranu (poza oknem), więc domyślam się, że musi to być pozycja kontrolki na ekranie.

Edit:

Znalazłem TCONTROL Property ClientOrigin który powraca co wcześniej oczekiwano I, jest to prawidłowe użycie ClientOrigin.X i ClientOrigin.Y?

Answer 1

TControl.ClientToScreen podaje współrzędne ekranu dla danego punktu w kontrolce.

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