Weitere Fenster geöffnet?

[trashcandesign]

Moin,

ich habe ein Programm, dass mehrere Unterfenster öffnen kann.
Diese unterfenster sind leider nicht vom gleichen Typ, dh. ich habe TForm1, TForm2, TForm3 ... usw.

Jetzt möchte ich bevor das Programm geschlossen wird überprüfen, ob noch eins dieser Unterfenster geöffnet ist und dementsprechend eine Meldung ausgeben. Frage ist nur wie?

Ich hab mir mal eine Array gebastelt, in das ich die WindowHandles schreibe, finde aber keine möglichkeit zu überprüfen, ob das zu dem Handle gehörende Fenster noch offen ist!?

[vlees91]

lass die Fenster beim oeffnen in ein Projektwetes Array (boolsch) reinschreiben wenn sie sich oeffnen und wenn sie geschlossen werden.
beim beenden kontrollieren ob das ganze array nur falses enthaelt

[trashcandesign]

sowas in der richtung hatte ich mal drin, hat aber ab und an mal nicht richtig funktioniert.
Irgendwie haben es unsere kunden immerwieder geschafft, die fenster zu shcließen, ohne dass dieser Boolean wert false angenommen hat.
Sodass dann zwar kein fenster mehr offen war, aber mein Programm immer noch "dachte" es wäre so.

Deswegen wollte ich halt aktiv überprüfen, ob die Fenster noch aktiv sind.

[Luckie]

Kann man nicht Show auf wahr prüfen? Und man müsste auch über TApplication über die vorhandenen Formulare iterieren können.

[trashcandesign]

Show kann man auf wahr prüfen, indem man schaut, ob es visible ist, aber dazu müsste ich ja irgendwie vom Handle auf die Form kommen.

Bei TApplicaiton hab ich leider nichts gefunden, mit dem man durch die Formulare iterieren könnte.

[Luckie]

Zitat:

Zitat von trashcandesign

Show kann man auf wahr prüfen, indem man schaut, ob es visible ist, aber dazu müsste ich ja irgendwie vom Handle auf die Form kommen.

Bei TApplicaiton hab ich leider nichts gefunden, mit dem man durch die Formulare iterieren könnte.

Falsch du brauchst nicht das Handle, sondern die Objektinstanz, um die Eigenschaft Visisble abzufragen. Und der application sollten alle vorhandenen Formulare bekannt sein.

[himitsu]

wie wäre es, wenn du einfach mal Form1.Visible, Form2.Visible, ... ausließt?

und warum speicherst du ie Handles der Forms?
(eine Refferenz auf die Forms macht sich doch auch gut :zwinker:)

:gruebel:

Delphi-Quellcode:

For i := 0 to Application.ComponentCount - 1 do
  If Application.Components[i].ClassName = 'TForm' Then
    ...

[RavenIV]

Also ich habe eigene Prozeduren dafür in meiner Hauptform.

RegisterClient(aForm:TForm) und UnregisterClient(aForm: TForm)
Diese fügen das Form in eine TList ein bzw. entfernen sie wieder.
im FormCreate bzw. FormClose der UnterFormulare rufe ich diese Prozeduren auf.

Beim Schliessen der Hauptform prüfe ich, ob in der Liste noch ein Eintrag drin ist und reagiere entsprechend.
if fFensterListe.Count <> 0 then

[bitsetter]

Hi,

noch eine Variante:

Delphi-Quellcode:

var
  i: integer;
begin
  for i:= 0 to Application.ComponentCount- 1 do
    if Application.Components[i] is TCustomForm  then
      if TCustomForm(Application.Components[i]).Showing then
        showmessage(TCustomForm(Application.Components[i]).Name)

[Hawkeye219]

Hallo,

ihr sucht an der falschen Stelle., TScreen bietet einen Zugriff auf alle Formulare der Applikation.

Gruß Hawkeye

[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);