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

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