Aplicacao Mdi - Controle de menu e mdichilds

Question

Cmo fa�o para desabilitar alguns menus no mdiform quando n�o houver nenhuma mdichild aberta?

Ou seja, como posso ter o controle e saber q todas as mdichilds fecharam?

Tentei verificar logo apos o fechamento do form child se o activemdichild estava nil mas nao funcionou.

Massuda · Answer

Use o evento OnActiveFormChange da vari�vel global Screen. No tratador desse evento, voc� pode testar se o valor de MDIChildCount do seu form principal � zero ou n�o....

Gabriela · Answer

mas aonde eu coloco esse procedimento? declaro ele solto?...

Gabriela · Answer

Consegui. Valeu!...

Massuda · Answer

Eu costumo por o tratador desse evento no meu form principal.

type
  TMeuForm = class(TForm)
    //...
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure AtualizarMenu(Sender: TObject);
    // ...

implementation

procedure TMeuForm.FormCreate(Sender: TObject);
begin
  // ...
  Screen.OnActiveFormChange := AtualizarMenu;
end;

procedure TMeuForm.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveFormChange := nil;
  // ...
end;

procedure TMeuForm.AtualizarMenu(Sender: TObject);
begin
  //...
end;

Bruno_fantin · Answer

o objeto Screen tem todos os forms criados... � s� verificar nele......

F�rum Aplicacao Mdi - Controle de menu e mdichilds #260898