[ Ajuda ] Função para Criar Forms Dinâmicamente

Delphi

29/04/2012

Preciso desenvolver uma função para criar forms Dinamicamente, ja tentei de tudo, sempre da o erro no Show, ShowModal, algumas das funções que testei funcionaram no Delphi 2007, mas no XE2 com o FireMonkey Não estão funcionando, TFormClass por exemplo não existe, enfim postarei algumas das que tentei usar...
Se alguém souber como passar, eu gostaria de Chamar de qualquer lugar pois é uma UnitCompartilhada,
chamar assim: NomeDaFuncao( frmParaCriar, TfrmParaCriar ), ou algo do gênero...

Agradeço desde já!



function CreateForms( FormClass: TFormClass; FormName: TCustomForm; ModalForm : Boolean ) : Boolean;
begin
  with FormName do
    try
      FormName := FormClass.Create(Application);
      if  ModalForm Then
          ShowModal
      else
          Show;
      CreateForms := True;
    except
      CreateForms := False;
  end;
end;






procedure CriarForm(aClasseForm: TFormClass; aForm:TForm);
begin
  Application.CreateForm(aClasseForm, aForm);
  aForm.showmodal;
  aForm.free;
end;
Marcelo Jr

Marcelo Jr

Curtidas 0

Respostas

Marcelo Jr

Marcelo Jr

29/04/2012

ninguém?


bah, estou precisando disso urgentemente...

se alguém tiver alguma idéia, link ..
Por Favor!
GOSTEI 0
POSTAR