Obtener el left/top absoluto de un control

[sur-se]

Hola.
Necesito obtener el left/top absoluto de un componente de la pantalla que está incluido en otros (paneles, pages, etc). Cuando un edit está incluido en un panel, por ejemplo, el left que muestra es el relativo al margen izquierdo de ese panel. Yo necesito calcular el left global del edit, respecto al borde izquierdo del form que lo contiene.
He probado con la siguiente función recursiva, pero no lo efectúa bien porque el owner no parece ir recorriendo los objetos en los que está incluido, sino que directamente va al form principal, como owner del objeto.

function obtener_left_absoluto(ctrl:tcontrol):integer;
begin
if not Assigned(ctrl.owner) then result:=ctrl.left
else
if ctrl is TForm then Result:=ctrl.left
else Result:=ctrl.left+obtener_left(ctrl.owner as tcontrol);
end;

¿Podéis sugerirme una solución?
Gracias.

[Caro]

Hola sur-se, puedes utilizar la propiedad ClientOrigin de tus controles, ya que te devuelve el Top y Left de la esquina superior, digamos para un Edit, Edit.ClientOrigin.X sera el Top y Edit.ClientOrigin.Y sera el left.

Saluditos

[cHackAll]

ClientToScreen ???

[sur-se]

Hola. Gracias por la ayuda. Con clientorigin es suficiente. Lo estaba yo complicando más de la cuenta.
Un saludo.

[roman]

Sin embargo, debes tener en cuenta que ClientOrigin te da las coordenadas respecto de la pantalla y no del formulario. Además, ClientOrigin es la esquina superior izquierda del área cliente, y no es la misma que si considerases la dada por Left y Top.

// Saludos