Como minimizar todos os forms MDI criado

[luiz.claudio.vieira 0]

Caros amigos, estou com a seguinte dúvida. Tenho uma aplicação MDI, e no formulário mãe tenho um botão, eu preciso que quando eu clicar neste botão ele minimize todos os Forms filhos que estejam abertos. Como faço isso?!AtenciosamenteLuiz Cláudio V. Santos

[Dopi 0]

procedure TfrPrincipal.aJanelaMinimizarTodasExecute(Sender: TObject);Var I : integer;begin  For I := MDIChildCount - 1 downto 0 do     MDIChildren[I].WindowState := wsMinimized;end;procedure TfrPrincipal.aJanelaRestaurarTodasExecute(Sender: TObject);Var I : integer;begin  For I := 0 to MDIChildCount - 1 do    MDIChildren[I].WindowState := wsNormal;end;procedure TfrPrincipal.aJanelaFecharTodasExecute(Sender: TObject);var I : integer;begin  For I := MDIChildCount - 1 downto 0 do     MDIChildren[I].close;end;

[luiz.claudio.vieira 0]

Deu certo, valeu companheiro...