Fórum Chamar form passando string #165679

20/06/2003

0

Como eu faço para criar uma função que ao passar a string com o nome do form o mesmo é criado e mostrado?

tipo:

CriaForm(´frmClientes´);


Adriano Santos

Adriano Santos

Responder

Posts

20/06/2003

Rafael Heise

que eu saiba não tem.. mas você pode fazer um if... id form = frmcad then
application.creatform(tform,frmcad)
...


Responder

Gostei + 0

20/06/2003

Dorivansousa

procedure FormModal(Formulario: TForm; TFormulario:TFormClass);
begin
try
Formulario:=TFormulario.Create(Application);
Formulario.ShowModal;
finally
Formulario.Free;
end;
end;
---------------------------------------------------
se eu tenho um form que se chama ´NomeFormulario´ faço desta forma.

FormModal(NomeFormulario,TNomeFormulario)

obs.
Detalhe que o formulario é criado em memoria então nao esqueca de coloca-lo nas opcoes do projeto (Menu Project->Options) como Availiable Forms.
E o formulario é chamado em ShowModal.


Falou...


Responder

Gostei + 0

20/06/2003

Dorivansousa

procedure FormModal(Formulario: TForm; TFormulario:TFormClass);
begin
try
Formulario:=TFormulario.Create(Application);
Formulario.ShowModal;
finally
Formulario.Free;
end;
end;
---------------------------------------------------
se eu tenho um form que se chama ´NomeFormulario´ faço desta forma.

FormModal(NomeFormulario,TNomeFormulario)

obs.
Detalhe que o formulario é criado em memoria então nao esqueca de coloca-lo nas opcoes do projeto (Menu Project->Options) como Availiable Forms.
E o formulario é chamado em ShowModal.


Falou...


Responder

Gostei + 0

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

Aceitar