Entender las excepciones y Eurekalog?

[[Al González]]

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.

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.