fechar todos os forms filhos

Question

boa noite, preciso d uma funcao que feche todos os formulario filhos aberto dentro de um formulario pai e conserve o form pai ativo agrade�o a

Paullsoftware · Answer

eu uso essa procedure pra minimizar todos

Procedure TFrmPrin.Minimizar;
var
  I : integer;
begin
  For I:= MdiChildCount-1 downto 0 do
    MdiChildren[I].WindowState := wsMinimized;
end;

adaptando para fechar todos

Procedure TFrmPrin.Minimizar;
var
  I : integer;
begin
  For I:= MdiChildCount-1 downto 0 do
    MdiChildren[I].Close;
end;

espero ter ajudado :wink: