Einzelnen Beitrag anzeigen

Andreas L.

Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Aufbau von Forms verstecken

  Alt 9. Mär 2019, 11:51
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 = 'Form1then
      Screen.Forms[FormIndex].Show;
    // In diesem Fall würde nur das Formular mit dem Namen
    // Form1 sichtbar werden.
  end;
end;
Andreas Lauß
Blog
  Mit Zitat antworten Zitat