Abrir form informando String (resposta)

Delphi

20/06/2003

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;


Adriano Santos

Adriano Santos

Curtidas 0
POSTAR