Como passar a criação de um formulário via string
24/09/2004
0
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
Curtir tópico
+ 0
Responder
Posts
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
[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
Clique aqui para fazer login e interagir na Comunidade :)