Creación de componentes VCL (III) - Heredando de TCustomComponent: otro mundo

Para conseguir esto, tenemos que utilizar la misma técnica que hemos explicado con el ejemplo anterior, aunque heredaremos de otro componente base. En nuestro caso, para crear un componente combinado podríamos heredar de TCustomComponent, que es precisamente la clase que nos proporciona la VCL para crear componentes combinados. En el constructor de “nuestro nuevo hijito”, procederemos a crear el resto de componentes que aparecerán en su interior. El principal inconveniente (que soluciona el componente TFrame) es que tenemos que actuar como si no tuviéramos un entorno de desarrollo, es decir: creando cualquier componente, o asignando los eventos y propiedades, en tiempo de ejecución, todo a través de código y sin ayudarnos del editor de propiedades y formularios del entorno de Delphi.

Para ello tenemos que tener que imitar lo que Delphi hace por nosotros: tener un atributo para cada uno de los componentes internos, que crearemos en el constructor y asignaremos su Parent a nuestro CustomComponent.

Si necesitamos hacer uso de los eventos de los componentes internos, debemos hacer lo mismo que hace el entorno de desarrollo: definir un método y asignarlo a la propiedad del componente que queramos.

Bueno, más vale una imagen que mil palabras, así que en el siguiente listado tenéis el código que debería tener un componente de este tipo, concretamente un componente que muestra una etiqueta (TLabel), un botón (TButton), y un campo de edición (TEdit), y en la imagen de la izquierda el resultado de este componente funcionando.