Forms dinámicos

[juliobuitrago]

Esta es la sección del codigo, probando

Código Delphi [-]
type
  Tplantillas_form_menu = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  plantillas_form_menu: Tplantillas_form_menu;

implementation

uses uform_plantillas1,uform_plantillas2;

{$R *.dfm}

procedure Lanza(i:String);
var
  FormClass: TPersistentClass;
  j : TForm;
begin
  FormClass := GetClass(i);
  if Assigned(FormClass) then
   if (FormClass.InheritsFrom(TForm)) then
      with Application do
           if Assigned(FindComponent(i)) then
              (FindComponent(i) as TForm).ShowModal()
           Else
               ShowMessage('No Encontrado');
End;
procedure Tplantillas_form_menu.Button1Click(Sender: TObject);
begin
  Lanza(ComboBox1.Text);
end;

initialization
  RegisterClass(Tform_plantillas1);
  RegisterClass(Tform_plantillas2);
end.

Aqui según el chequeo

Código Delphi [-]
  FormClass := GetClass(i);

Dice que FormClass es Nil, o lo que es lo mismo, parece que no lo reconoce.

Ayuda por fa, creo que estamos cerca.....Si se resuelve, puedo tomar en vez del combo de un array todas las formas que necesito, Saludos

Fernando