Chamar Form atraves de uma Tree (aplicacao MDI)

Delphi

22/08/2005

Olá a todos,

Tenho o menu numa Tree, os nós da tree são feitos de forma dinamicamente, ou seja, e lido a tabela de menus e monto a Tree, o que acontece é que não estou conseguir chamar o Form. O código que já fiz foi o seguinte
procedure TFrMenus.MenuClick(Sender: TObject);
var
   Frm:  TForm;
   obj : TObject;
begin

   obj := application.FindComponent(´frmenus´) ;
   if (obj is TForm)  then
   frm := (obj as Tform);
   criaform( frm) ;

   {
       if frmenus = nil then
       frmenus := tfrmenus.Create(application);
       frmenus.WindowState := wsnormal;
       frmenus.Show;
    }
End;

procedure TFrMenus.CriaForm(ClasseDoForm: TForm);
var
Form: TForm;
begin
 if ClasseDoForm = nil then
   Form := ClasseDoForm.Create(Application );
  Form.WindowState := wsnormal;
  Form.Show;
  Form.Free;
end;


Só que não está a funcionar, será que estou completamente enganado no código, ou será que posso fazer de outra forma + simples?

a aplicação é MDI.

Obrigada


Porty

Porty

Curtidas 0

Respostas

Porty

Porty

22/08/2005

 ?



GOSTEI 0
Rjun

Rjun

22/08/2005

Bom, vc esta dando Form.Show e depois Form.Free. Isso não tem como dar certo.

Outra coisa, acho q sua função de criar form está errada. Dê uma olhada nesse tópico.

http://forum.devmedia.com.br/viewtopic.php?t=67051


GOSTEI 0
POSTAR