Creador generico de formulario.

[Neftali [Germán.Estévez]]

Yo creo que esta línea te puede estar dando problemas:

Código Delphi [-]
  
Application.CreateForm(TComponentClass(ClassName), TForm(FormName));

En el segundo parámetro estás haciendo el CAST como TForm de un string.

[[movorack]]

así lo ví en un sitio... creo que fué en aboutdelphi... y funciona... a mi también me pareció extraño... pero funcionó... la cuestión es cuando voy a cerrar dicho formulario... y eso no todas las veces.

[Neftali [Germán.Estévez]]

Yo en todo caso lo hubiera puesto así:

Código Delphi [-]
Application.CreateForm(TComponentClass(ClassName), TForm(component));

[[movorack]]

Así me genera un error cuando el formulario no ha sido creado aún... la primera línea evalúa si el formulario está creado... cuando no está creado devuelve siempre nil y si lo coloco como parametro del CreateForm me genera un error.

Quité el cast, dejando solo el string como parametro y es más estable que antes... ya el error se presenta muy pocas veces.

Código Delphi [-]
Application.CreateForm(TComponentClass(ClassName), FormName);

[rgstuamigo]

Hola movorack, en éste hilo se ha tratado el tema del error y en mi opinión particular para poder resolverlo creo que la respuesta de hach es la mejor solución.
Saludos...

[Neftali [Germán.Estévez]]

Sigo pensando que esa referencia al nombre del formulario va a dar siempre error.
Yo lo he probado cambiando por component, tal y como te he dicho antes y eliminandole el último else y parece que funciona.

Aquí te subo el ejemplo.

Código Delphi [-]
procedure CreateForm1(ClassName: TPersistentClass; FormName: String);
var
  Component : TComponent;
begin
  // busco si el form está ya creado  (a)
  Component := Application.FindComponent(FormName); 
  // No está creado?  ==> Lo creo
  if not Assigned(Component) then begin
    try
      // Buscar la clase
      FindClass('T'+FormName);
    except
      // si no la ha encontrado la registro
      classes.RegisterClass(ClassName);
    end;
    // Creo el form a partir de la clase (queda en component -referencia-) (b)
    Application.CreateForm(TComponentClass(ClassName), component);
  end;

  // Abro el form, ya sea por encontrado(a) o por creado(b)
  TForm(Component).Show;
end;

[rgstuamigo]

El problema que veo no está en cómo se crea el formulario sino mas bien en cómo se está destruyendo, recalco el problema del FreeAndNil(bueno en éste caso se asigna "nil" al formulario en el evento OnClose) es la cuestion y creo que roman lo a explicado claramente en éste hilo.
Saludos...

[[movorack]]

Empezado por rgstuamigo

El problema que veo no está en cómo se crea el formulario sino mas bien en cómo se está destruyendo

Gracias rgstuamigo, de verdad a mi tampoco me gusta mucho esta forma... la uso porque me "funciona" ... leí el hilo y me parece interesante el comentario de román... aunque en realidad no habia tenido problemas con la destrucción del formulario.

Empezado por Neftali

Yo lo he probado cambiando por component, tal y como te he dicho antes y eliminandole el último else y parece que funciona

Gracias Neftali, si funciona y no me ha arrojado ningún error hasta ahora... bacano.

--
Comparto este artículo que encontré (Understanding the Birth, Life and Death of a Delphi Form), pues me parece relevante al tema...