Creación de componentes VCL (I) - ¿Y cómo se hace todo esto?

Para poder hacer una conversión de divisas necesitamos tres datos:

• El valor origen, que será la cantidad que deseamos convertir. Por ejemplo: 1.
• La divisa en que está dado ese valor. Por ejemplo: euros.
• La divisa que queremos obtener. Y siguiendo con el ejemplo: pesetas.

En resumen, en el ejemplo queremos convertir 1 euro en pesetas, por lo que el componente debe informarnos de que el resultado es 166,386.

Como resultado de la operación obtendremos un valor ya convertido a la divisa indicada. Pero vamos a empezar por el principio.

Lo más normal es que cada componente se codifique en su propia unidad, aunque esto en absoluto es imprescindible, y muchas veces es necesario codificar varios componentes en una misma unidad (la VCL de Borland lo hace así). En nuestro caso vamos a crear la unidad ConversorMonedas.pas para definir el componente.

Ya hemos dicho que un componente es una clase como cualquier otra, aunque no hemos dicho que debemos heredarla a partir de la clase TComponent, o cualquiera de sus descendientes. Esta clase nos proporciona todos los métodos y propiedades para que el componente pueda ser manejado y registrado dentro del entorno de desarrollo.

Así, con lo que ya sabemos podemos escribir nuestra primera aproximación del componente TConversorMonedas, en la que definiremos una clase heredada de TComponent:

type
  TConversorMonedas = class(TComponent)
  
  end;
 

Esto es un componente, aunque por ahora no hace nada interesante. Para probarlo debemos registrarlo en el entorno de desarrollo y así podremos verlo dentro de la paleta de componentes. Esto se hace a través del procedimiento RegisterComponents definido dentro de la unidad Classes. Es fácil de utilizar: debemos crear un procedimiento llamado Register en la misma unidad que el componente. En este procedimiento, tenemos que hacer una llamada al procedimiento RegisterComponent, indicando, en este orden, la solapa en la que mostrar el componente, y la clase que lo representa. La unidad completa, con el procedimiento Register, quedaría como vemos en el siguiente listado:

unit ConversorModenas;
 
 interface
 
 uses classes;
 
 type
  TConversorMonedas = class(TComponent)
  
  end;
 
  procedure Register;
 
 implementation
 
 procedure Register;
 begin
  RegisterComponents('Mis componentes', [TConversorMonedas]);
 end;
 
 end.
 

Bien, ya podemos registrar nuestro componente, a través de la opción de menú Component - Install Component. En la ventana que se mostará, seleccionamos la unidad ConversorMonedas.pas en el campo Unit file name y hacemos clic sobre el botón OK.
Acto seguido se procederá a compilar el componente y si todo va bien, aparecerá un nuevo icono en la paleta de componentes, dentro de una nueva solapa llamada "Mis componentes".

Estos pasos que hemos dado son comunes a todos los componentes que hagamos en un futuro, así que debemos entenderlos bien.

Resumiendo, lo que hemos hecho ha sido definir la clase del componente y registrarlo en el entorno de desarrollo.
Por cierto, esto mismo se puede hacer de forma automática a través del menú Component - New component, que nos creará esqueleto básico de un componente. De todas formas, es bueno saber hacer las cosas a mano, y luego aprovechar las herramientas que nos ofrece el entorno.