Chamar form passando string
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´);
tipo:
CriaForm(´frmClientes´);
Adriano Santos
Curtidas 0
Respostas
Rafael Heise
20/06/2003
que eu saiba não tem.. mas você pode fazer um if... id form = frmcad then
application.creatform(tform,frmcad)
...
application.creatform(tform,frmcad)
...
GOSTEI 0
Dorivansousa
20/06/2003
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...
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...
GOSTEI 0
Dorivansousa
20/06/2003
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...
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...
GOSTEI 0