Como passar a criação de um formulário via string

24/09/2004

Gostaria de criar uma função como abaixo:

func criaform(novform: string; novavar: string )

application.creatform(novform;novavar);

Onde eu passaria uma string e ele criaria o formulário em tempo de execução. Mas não consegui até agora. Alguém poderia me ajudar?
Não consegui achar nada que transform estas strings para que funcionem em tempo de execução.

Obrigado


Jubrovolski

Respostas

24/09/2004

Rodc

Isto soluciona seu problema...

[color=darkred:485259c9e6]function CriaForm(TipoForm: TComponentClass; var Form): Integer;
begin
Application.CreateForm(TipoForm, Form);
Result := TForm(Form).ShowModal;
FreeAndNil(TForm(Form));
end;[/color:485259c9e6]

Daí é só chamar assim:
CriarForm(TForm1, Form1);

Rodrigo Cesar dos Santos
NGM Business Solution


Responder Citar