Weitere Fenster geöffnet?

[trashcandesign]

Danke Hawkeye so funktioniert das, was ich will:

Delphi-Quellcode:

var
  i : integer;
begin
  for i := 0 to Scree.FormCount-1 do
    if Screen.Forms[i].Visible then
      Showmessage Screen.Forms[i].Name;

[himitsu]

Zitat:

Zitat von Hawkeye219

ihr sucht an der falschen Stelle...

wieso?
in Application.Components sind alle Komponenten (TForm und sein Vorfahre TCustomForm sind welche), welcheApplication zugeordnet sind, aufgelistet. :angel:


naj, ein Ziel und viele Wege

[RavenIV]

Zitat:

Zitat von himitsu

Zitat:

Zitat von Hawkeye219

ihr sucht an der falschen Stelle...

wieso?
in Application.Components sind alle Komponenten (TForm und sein Vorfahre TCustomForm sind welche), welcheApplication zugeordnet sind, aufgelistet. :angel:


naj, ein Ziel und viele Wege

Hawkeye hat schon recht.
Warum soll ich (das Programm) mich durch Application.Components durchackern, wenn in Screen.Forms genau das ist, was ich haben will, nämlich die geöffneten Formulare?

Man kann es ja auch oberkompliziert machen, sodass es am Schluss keiner mehr kapiert.

[Hawkeye219]

Zitat:

Zitat von himitsu

wieso?
in Application.Components sind alle Komponenten (TForm und sein Vorfahre TCustomForm sind welche), welche Application zugeordnet sind, aufgelistet.

Eben, nur die. Für Formulare, die man dynamisch ohne Eigentümer erzeugt hat, muß man entweder selbst Referenzen verwalten, oder man kann das Screen-Objekt befragen. Ich bin allerdings nicht sicher, ob das noch Teil der Aufgabenstellung war.

Gruß Hawkeye

[RavenIV]

Zitat:

Zitat von Hawkeye219

Für Formulare, die man dynamisch ohne Eigentümer erzeugt hat, muß man entweder selbst Referenzen verwalten, ...

<offtopic>
Ich sehe keinen Sinn darin ein Formular ohne Eigentümer (Besitzer) zu erstellen.
Normalerweise erstellt man ein Formular mit
Application.CreateForm(TFoStatus, FoStatus);
oder
fFoTimeEdit := TTimeEditForm.Create(Self);