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


Jubrovolski

Jubrovolski

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


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar