Cuando creas una instancia de componente, o formulario (los formularios también son componentes), el constructor te permite indicar qué otro componente es el dueño (propietario) de la nueva instancia de objeto. Ese dueño tendrá entonces ese nuevo componente en su lista de componentes
adueñados, lista a la que podrás acceder mediante su propiedad Components. De tal suerte que, combinando el uso de esa propiedad con ComponentCount (cantidad de componentes adueñados), podrías realizar algún recorrido por cada uno de ellos, por ejemplo, para automatizar algún cambio sin necesidad de conocer previamente qué componentes son los que hay en la lista. Cuando el componente dueño se destruye, éste se encarga de destruir también la lista de componentes que posee, liberando la memoria de cada uno en orden inverso a su inclusión en la lista Components.
Cita:
Empezado por amadis
Que diferencia hay con CREATE(Self)?
|
Self es una
variable implícita, es decir, no declarada en el código fuente (como es el caso de
Result en los métodos
function). Self representa al objeto con el que se está ejecutando el método donde está expresada. Es así que Self, dentro de un método como
TForm1.Button1Click es el objeto
Form1 que, habiéndose instanciado tiempo atrás, ahora está en operación y el usuario ha presionado su botón
Button1. Entonces, si dentro de un método de formulario haces algo como
Código Delphi
[-] MiNuevoObjeto := TClaseComponente.Create (Self);
, esencialmente estás construyendo un nuevo componente (
MiNuevoObjeto) e instruyendo al objeto formulario (Self) para que lo incluya en su propiedad Components.
Siendo "muy probable" que tras la ejecución de esa línea, la expresión Boolean
Código Delphi
[-]Components [ComponentCount - 1] = MiNuevoObjeto
sea verdadera. Pero no confíes mucho en esto último pues, dependiendo de cada caso, puede que el constructor de un componente esté programado para desencadenar la creación interna de otros objetos más, incluso con la particularidad de que esos otros objetos sean también componentes y queden bajo la
tutela del mismo
Owner. Así,
MiNuevoObjeto podría quedar realmente en la casilla
Components [ComponentCount - 2],
Components [ComponentCount - 3], etc.
Abundé en el tema para refrescar un poco la mente, pero que sea de utilidad mi aportación. :-)
Saludos.
Al González.