Alle Forms auflisten?

[blackdrake]

Hallo.

Ein unabhängiges Form wird von 2 Projekten in einer Projektgruppe verwendet.

Dabei soll in allen Anwendungen immer nur 1 Form gleichzeitig geöffnet sein.

Dabei würde ich mir wünschen, dass man alle Forms von TApplication dynamisch aufrufen kann. Nur: Wie geht das?

Folgender Code würde mir vorschweben:

Delphi-Quellcode:

procedure HideAllForms;
begin
  for i := ... do
  begin
    Application.Form[i].Hide; // Form[i] gibt's nicht :-/
  end;
end;

procedure TGemeinsamesForm.ShowOnlyThisFrom;
begin
  HideAllForms;
  Self.Show;
end;

Gruß
blackdrake