Nur aktuelles Formular geöffnet?

[Angel4585]

Hallo zusammen.

Gibt es eine Prozedur oder Funktion, mit welcher sich prüfen lässt, ob das Fenster in dem ich mich gerade befinde, das einzige geöffnete Formular des Programms ist, bzw. ob noch andere Formulare geöffnet sind?(ausser jedes einzeln abzufragen ob es visible ist)

Danke schonmal

[dataspider]

Über Screen.FormCount erhalte ich die Anzahl der auf dem Bildschirm angezeigten Formulare.

Delphi-Quellcode:

function TForm1.OnlyThisForm: Boolean;
begin
  if Self = Application.MainForm then
    result := (Screen.FormCount = 1)
  else
    result := (Screen.FormCount = 2);

end;

Frank

[Angel4585]

THX