FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Obtener el left/top absoluto de un control
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. Código:
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; Gracias. |
#2
|
||||
|
||||
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
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#4
|
|||
|
|||
Hola. Gracias por la ayuda. Con clientorigin es suficiente. Lo estaba yo complicando más de la cuenta.
Un saludo. |
#5
|
||||
|
||||
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
LEFT sin la palabra LEFT | Paulao | Varios | 0 | 07-05-2008 21:46:45 |
Obtener el foco de un control que esta en un Tform | jlrbotella | OOP | 2 | 01-02-2008 13:46:59 |
Left Join | peripla | SQL | 1 | 28-06-2007 18:52:46 |
Daño absoluto en la BD | castroruiz2001 | Firebird e Interbase | 10 | 12-08-2005 22:47:18 |
obtener los digitos de control de una cuenta | maruenda | Varios | 1 | 22-11-2004 22:12:38 |
|