Mostrar Form conociendo unicamente el Nombre como String

[VictorPenyalver]

Ahi va el codigo que uso. El formulario se crea bien con el codigo que se publico en este hilo pero no pasa por su constructor.

El formulario que debe crear es heredado y el constructor esta declarado como Virtual.

procedure TfrmListado.CreaFicha;
var ClaseFicha: TFormClass;
begin
  inherited;
  ClaseFicha := Fabrica.Clases[FFormFicha];
  with ClaseFicha do begin
    Create(Self);
  end;
end;

initialization
  Fabrica.Registrar(TfrmListado);

Gracias por vuestra ayuda!

[[newtron]]

Estimado Román.

Estoy intentando usar tu ejemplo para poder crear un formulario a partir de un string con el nombre y tengo el siguiente problema a ver si me puedes echar una mano:

Yo uso formularios propios que descienden del TForm y con tu ejemplo consigo crearlos correctamente pero ahora no sé como hacer referencia al formulario para poder asignar unas propiedades determinadas y luego presentarlo.

Gracias y un saludo

[roman]

No puedes

Tal como está pensada, la fábrica almacena referencias TFormClass y, aunque puedes, desde luego, guardar referencias de clases derivadas, no puedes sino usar los métodos y propiedades definidos en TForm. Claro que el polimorfismo de OOP aún te permite usar clases derivadas con métodos redefinidos y todas esas cosas, pero sólo puedes llamar los métodos que ya tienes.

¿Qué hacer entonces?

Fijar tu propio ancestro común; para lo cual haría falta tener organizados turs formularios en una jerarquía de clases. Así por ejemplo tendrías

Código Delphi [-]
type
  TNewtronForm = class(TForm)
  protected or public
  {
    Aquí un montón de propiedades y métodos cool que usan tus formularios
  }
  end;

Tus formularios derivarían de éste y, para que la fábrica funcione necesitas, primero definir un tipo de datos que referencie tu clase de formulario:

Código Delphi [-]
type
  TNewtronFormClass = class of TNewtronForm;

Y en la definición de la fábrica cambiar las referencias a TFormClass por TNewtronFormClass.

En un escenario muy complicado, con formularios de muy diversas índoles, tendrías que crear no una clase base sino posiblemente varias de ellas para agrupar aquellas con características comunes y hacer fábricas para cada grupo.

// Saludos

[[newtron]]

Estupendo amigo roman.

Como solo tengo un tipo de formulario heredado no creo que tenga grandes problemas para implementar tu solución.

He hecho una prueba y parece que funciona perfectamente.

Gracias por todo y un saludo .