Como passar a criação de um formulário via string
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
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
Curtidas 0
Respostas
Rodc
24/09/2004
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
[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
GOSTEI 0