Consulta Formularios

[leoram72]

Hola,

Tengo la necesidad de crear en tiempo de ejecución los formularios de mi aplicación los nombres de cada formulario estan almacenado en campos texto, y necesito que cuando el usuario elija que formulario ejecutar, tome el nombre del formulario, lo cree y lo presente, he tenido problemas con los tipos de datos.

Agradezco de antemano la ayuda.

[dec]

Hola,

Por el momento se me ocurre algo como lo siguiente:

Código Delphi [-]
  with Application do begin
    if Assigned(FindComponent('Form2')) then
      (FindComponent('Form2') as TForm).ShowModal();
  end;

Con el posible inconveniente de que el formulario "Form2" ha de crearse al comenzar el proyecto, es decir, ha de estar disponible (lo que no quiere decir visible) para poder utilizar el método "FindComponent" de la clase "Application".

[leoram72]

Mil gracias, esta opcion me sirve, ya despues mirare como optimizarla para no tener que crear toas las formas desde el principio

Gracias.

[roman]

Aquí va otra idea:

Para crear el formulario con nombre dado puedes definir el siguiente método en el formulario principal:

Código Delphi [-]
procedure TForm1.CreateForm(FormName: String);
var
  FormClass: TPersistentClass;

begin
  FormClass := GetClass(FormName);
  if Assigned(FormClass) and (FormClass.InheritsFrom(TForm)) then
    with TFormClass(FormClass).Create(Application) do
      Show;
end;

Para que esto funcione, el formulario principal debe incluir en el uses, las unidades de los otros formularios, y cada uno de esos otros formularios debe incluir una sección initialization donde registre la clase del formulario:

Código Delphi [-]
unit Unit2;

interface

type
  TForm2 = class(TForm)
    ...
  end;

implementation

...

initialization
  RegisterClass(TForm2);
end.

Es un poco más de trabajo, pero permite iniciar sin tener creados los formularios.

// Saludos

[leoram72]

Bien,

Ya probe esta funcionalidad y es perfecta, mil gracias por la ayuda y la verdad no es muy extensa.

Nuevamente Gracias

[juliobuitrago]

Algo hago mal.
Tengo aqui tres forms.
Uno es el principal, los otros dos de prueba.
En el principal tengo un ComboBox con los nombres de los forms para poder cargarlos.
Todo creo que está como este ejemplo, pero me recoge Nil en el GetClass y por eso no se ejecuta.

Algo mal hago, observar que registro, en cada uno de los form las clases, pero algo pasa, por favor, ayuda y muchas gracias.

Fernando