Fórum Criar form dinamicamente #298533
05/10/2005
0
galera quero cadastra as forms no banco e chama a form dinamicamente.. Tipo a procedure abaixo
procedure criarform(classeForm: TformClass;Nomeform:Tform);
begin
application.createForm(ClasseForm,nomeform);
nomeform.showmodal;
nomeform.free;
end;
quero passar pelo paramentro a form do tipo String q esta no banco.. so q da erro de conversão, tem alguma função para converter???
Abraços
Fabio
procedure criarform(classeForm: TformClass;Nomeform:Tform);
begin
application.createForm(ClasseForm,nomeform);
nomeform.showmodal;
nomeform.free;
end;
quero passar pelo paramentro a form do tipo String q esta no banco.. so q da erro de conversão, tem alguma função para converter???
Abraços
Fabio
Fabiotb
Curtir tópico
+ 0
Responder
Posts
06/10/2005
Massuda
Este seu código...O parâmetro ´nomeform´ não é necessário pois nenhum valor é retornado nele e, mesmo que fosse, seria um valor inválido.
procedure criarform(classeForm: TformClass;Nomeform:Tform);
begin
application.createForm(ClasseForm,nomeform);
nomeform.showmodal;
nomeform.free;
end;
...pode ser reescrito assim...procedure MostrarForm(AClasseDoForm: TFormClass);
var
Form: TForm;
begin
Form := AClasseDoForm.Create(nil);
try
Form.ShowModal;
finally
Form.free;
end;
end;quero passar pelo paramentro a form do tipo String q esta no banco.. so q da erro de conversão...
Se o que você quer é criar um form pelo [b:f8dbe80832]nome da classe[/b:f8dbe80832], dê uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=68054]nesse tópico[/url].
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)