Auf Modale Fenster prüfen

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