Una unidad, más de una forma

[[mlara]]

Podría una unidad asociarse con más de una forma y luego trabajar con una u otra alternativamente?

[jacanche]

podrias explicar un poco mejor que quieres lograr?

[[mlara]]

Tengo dos versiones de un mismo programa. Una tiene un par de diferencias visuales en la misma ventana con relación a la otra. La idea es que a través de la directiva {$IFDEF} y una definición de un símbolo del preprocesador se ejecute cierto código. Esto no tiene problema. La cuestión es que entre una y otra, la interfaz cambia un poco: una podría tener un par de botones más, este otro botón va un poco más arriba, este panel ya no debería existir, ...

[Ñuño Martínez]

Por poder se puede, pero me parece de lo más lioso, sobre todo en mantenimiento.

Yo lo que haría es extender (o heredar) la clase del formulario y hacer los cambios en el heredado, usando uno u otro según el caso. Creo recordar que había una opción que lo hace automáticamente pero también se puede hacer a mano:

1. Creas una unidad (UNIT) nueva.
2. Añades a la sección USES de la sección INTERFACE la unidad del formulario que quieres usar de base.
3. Creas una clase que herede la clase del formulario (Por ejemplo: TFormPrincipalModificado = CLASS (TFormPrincipal)).
4. Añades a esta clase un procedimiento para dar respuesta a un onCreate que modifique la posición, tamaño, visibilidad y/o activación de los controles que quieras cambiar.
5. En el constructor (Create) del formulario asignas el evento onCreate que has creado.
6. Ahora usas el {$IFDEF} en la línea que cree el formulario, de forma que cree uno u otro según el caso. No olvides añadir la unidad en el USES