Alle Forms gleichzeitig schließen?

[smart]

Hallo zusammen.

Ich habe mehrere Formen mit Show geöffnet. Giebt es eine Möglichkeit alle geöffneten Formen zugleich zu schließen?

[DeddyH]

Nur eine Idee (ungetestet):

Delphi-Quellcode:

for i := Screen.FormCount - 1 downto 0 do
  if Screen.Forms[i] <> Application.MainForm then
    Screen.Forms[i].Close;

[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 ...

[smart]

Was ist besser, Formen dynamisch oder auf "herkömmlicher" Weise zu erstellen?

[DeddyH]

Was ist besser: Brot oder Brötchen? Das kann man halt nicht pauschal beantworten. Wenn Du nicht allzuviele Formulare mit tausenden Komponenten verwendest, kannst Du IMHO ruhig alles beim Alten lassen. Die Formulare werden dann zum Programmstart komplett geladen und verbrauchen dementsprechend Arbeitsspeicher. Erzeugst Du sie hingegen dynamisch, hast Du mehr Kontrolle über den Speicherverbrauch, aber eben auch die Verantwortung dafür.

[Sir Rufo]

Es kommt auch darauf an, ob man eine oder n Instanzen der Formulare benötigt.

Bei n Instanzen sollte man alle diese Formulare halt dynamisch erstellen.

So wie ich aus deinen bisherigen Fragen herauslesen würde, benötigst du so etwas wie einen ViewController, der dir diese Formulare erzeugt, anzeigt und dann wieder ins Nirwana schickt, wenn dieser ViewController entsorgt wird.

Dann brauchst du nur eine Instanz erzeugen und alles ist wie gewünscht da ... und beim entsorgen ist alles wieder sauber ;)