Auf Modale Fenster prüfen

[Orbmu2k]

Ich habe ein sehr umfangreiches Project mit sehr vielen Forms, die meissten davon werden Modal von der Hauptform geöffnet. Kann man in der Hauptform irgendwie prüfen ob gerade ein Modales Fenster geöffnet ist ?

Ich habe es mit
if not <MainForm>.Enabled then ... probiert ... aber Enabled wird wohl leider nicht auf False gestellt wenn ein Modales Fenster geöffnet wird

[RavenIV]

wenn ein modales Fenster geöffnet ist, ist das Mainform solange blockiert, bis das modale Form wieder geschlossen wird.
Auch alle functions und procedures des mainform machen solange nix mehr.

wenn du parallel zu dem modalen Form was machen willst, wirst du um Threads nicht drumrum kommen...

[Orbmu2k]

Also so ganz kann das nicht stimmen Auf Eigene Messages reagiert meine Mainform Klasse noch und da liegt auch das Problem er soll die Message nur verarbeiten wenn kein Modales Fenster gerade geöffnet ist ...

[Orbmu2k]

Ok habs jetzt so gelöst ...

Delphi-Quellcode:

function TfrmMain.IsAnyClientWindowVisible: boolean;
var
  i:Integer;
begin
  Result := False;
  for i := 0 to Screen.FormCount - 1 do
     if Handle <> Screen.Forms[i].Handle then
       if IsWindowVisible(Screen.Forms[i].Handle) then
       begin
         Result := True;
         Break;
       end;
end;