Detectar janelas MDI Filhas abertas.

Delphi

17/06/2005

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


Orlando Frade

Orlando Frade

Curtidas 0

Respostas

Massuda

Massuda

17/06/2005

[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.


GOSTEI 0
POSTAR