Fórum Chamar Form atraves de uma Tree (aplicacao MDI) #292692

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;