Detectar janelas MDI Filhas abertas.

Question

Amigos, preciso fazer uma rotina q feche e libere todas as janelas MDI filhas do meu sistema....

Massuda · Answer

[quote:54a7038759=�Orlando Frade�] preciso fazer uma rotina q feche e libere todas as janelas MDI filhas do meu sistema.[/quote:54a7038759]O modo tradicional de fazer isso dentro do form principal �...

var 
  I: Integer; 
.... 
  for I := MDIChildCount - 1 downto 0 do begin 
    MDIChildren[I].Free; 
  end;

Com rela��o a liberar a (mem�ria usada pela) janela, o normal � fazer no evento OnClose do form filho...

procedure TMeuFormFilho.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

...a op��o caFree far� que o form seja liberado automaticamente quando for fechado.

F�rum Detectar janelas MDI Filhas abertas. #285071