Criar form dinamicamente

Delphi

05/10/2005

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


Fabiotb

Fabiotb

Curtidas 0

Respostas

Massuda

Massuda

05/10/2005

Este seu código...
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;
O parâmetro ´nomeform´ não é necessário pois nenhum valor é retornado nele e, mesmo que fosse, seria um valor inválido.

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].


GOSTEI 0
POSTAR