Foros Club Delphi - Posición absoluta en el escritorio de un componente de mi form

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Posición absoluta en el escritorio de un componente de mi form (https://www.clubdelphi.com/foros/showthread.php?t=29142)

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

Hola a todos,

Necesito saber la posición absoluta de un componente de mi formulario, alguien sabe cómo puedo conseguirla?

grácias

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

También puedes hecharle un vistaso a la propiedad ClientOrigin del mencionado componente.

Código Delphi [-]  MessageDlg(Format('x=%d   y=%d', [Button1.ClientOrigin.X, Button1.ClientOrigin.Y]), mtInformation, [mbOK], 0);

Saludos:)