Aufbau von Forms verstecken

[Andreas L.]

Zitat von peterbelow:

Also erzeuge einfach erstmal alle Forms und speichere die Referenzen z. B. in einer TList (oder TList<TForm>).

Vielleicht ist eine eigene Liste gar nicht nötig. TScreen.Forms[] enthält alle Forms der Anwendung. Mit TScreen.FormCount erhält man die Anzahl.

Folgender Code z. B. macht alle Forms sichtbar.

Delphi-Quellcode:

var
  FormIndex: Integer;
begin
  for FormIndex := 0 to Screen.FormCount - 1 do
  begin
    // Wenn nicht alle Forms der Anwendung sichtbar werden sollen,
    // kann man natürlich auch eine Abfrage einbauen:
    if Screen.Forms[FormIndex].Name = 'Form1' then
      Screen.Forms[FormIndex].Show;
    // In diesem Fall würde nur das Formular mit dem Namen
    // Form1 sichtbar werden.
  end;
end;