Posición absoluta en el escritorio de un componente de mi form

[Neftali [Germán.Estévez]]

Haz un par de pruebas con ésta función:

//-----------------------------------------------------------------
TControl.ClientToScreen
Translates a given point from client area coordinates to global screen coordinates.
//-----------------------------------------------------------------

Una prueba sencilla coloca un botón en un form , y en el OnClick, el siguiente código; Luego mueve el form por la pantalla y pulsa el botón.

Código Delphi [-]
var
  pt, pt2:TPoint;
begin
  pt.X := Button2.Left;
  pt.Y := Button2.Top;
  pt2 := Button2.ClientToScreen(pt);

  MessageDlg(Format('x=%d   y=%d', [pt2.X, pt2.Y]), mtInformation, [mbOK], 0);