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
public
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