Alle Forms gleichzeitig schließen?

[Bummi]

Je nach dem wie Du die Fenster erstellst, bei uns üblicherweise dynamisch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  With TForm2.Create(self) do show;
end;

Procedure CloseForms(Owner:TComponent;Recursive:Boolean=true);
var
  i:Integer;
begin
  for I := 0 to Owner.Componentcount - 1 do
      if Owner.Components[i] is TForm then
        begin
        if Recursive then CloseForms(Owner.Components[i]);
        TForm(Owner.Components[i]).Close;
        end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CloseForms(Self);
end;

sorry, hatte nicht richtig gelesen, statt Hide halt close ...