Fórum Abrir form informando String (resposta) #165738
20/06/2003
0
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)