Alle offenen Forms schliessen, ausser die Hauptform

[DeddyH]

Beispiel aus der Delphi 5-Hilfe:

Zitat:

Im folgenden Code werden alle untergeordneten MDI-Fenster des Formulars Form1 geschlossen.

Delphi-Quellcode:

var

  I: Integer;
begin
  with Form1 do
    for I := MDIChildCount-1 downto 0 do
      MDIChildren[I].Close;
end;