Abrir form informando String (resposta)
Ae galera, um camarada me respondeu a pergunta e funcionou. Vejam
Ao final de cada nova Unit você precisa colocar o seguinte:
Initialization
RegisterClass(Classe do Form);
Initialization
RegisterClass(TfForm3);
Depois no form que vai chamar você faz o seguinte:
procedure...
var
Nome_Formulario: String;
i : integer;
Form : TForm;
begin
Nome_Formulario := Edit1.Text;
Application.CreateForm(TFormClass(FindClass(´T´ + Nome_Formulario)), Form);
Form.ShowModal;
end;
Ao final de cada nova Unit você precisa colocar o seguinte:
Initialization
RegisterClass(Classe do Form);
Initialization
RegisterClass(TfForm3);
Depois no form que vai chamar você faz o seguinte:
procedure...
var
Nome_Formulario: String;
i : integer;
Form : TForm;
begin
Nome_Formulario := Edit1.Text;
Application.CreateForm(TFormClass(FindClass(´T´ + Nome_Formulario)), Form);
Form.ShowModal;
end;
Adriano Santos
Curtidas 0