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

[Ricard Rabassó]

Hola a todos,

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

grácias

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

[yusnerqui]

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