Alle MDI-Childs schließen

[Silver]

Hi

Gibt es eine einfache Methode alle geöffneten MDI-Childs zu schließen??

MfG
Silver

[Alex]

Hallo,<br>die Hilfe hilft immer weiter:<PRE>
procedure TMainForm.btnCloseAllClick(Sender: TObject);
var
I: Integer;
begin
with MainForm do
for I := MDIChildCount-1 downto 0 do MDIChildren[I].Close;
end;</PRE&gt