F�rum [ Ajuda ] Fun��o para Criar Forms Din�micamente #416016

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

Curtir t�pico

+ 0

Responder

Posts

01/05/2012

Marcelo Jr

ningu�m?

bah, estou precisando disso urgentemente...

se algu�m tiver alguma id�ia, link ..
Por Favor!

Responder

Gostei + 0