Hintergrundform abdunkeln, wenn andere Form Modal geöffnet wird?

[peterbelow]

Try a handler for the Screen.OnActiveFormchange event, that may work for your purpose.

[Bodenseematze]

Zitat von peterbelow:

Try a handler for the Screen.OnActiveFormchange event, that may work for your purpose.

I tried this - but it has two problems...

Code:

procedure   TMyForm.ScreenActiveFormChange(
                                    sender_              : TObject );
var
   frmActive         : TCustomForm;
   bIsModal          : Boolean;
   ctrlForeground    : TWinControl;
begin
   ctrlForeground          := FindControl(
                                    Windows.GetForegroundWindow() );

   frmActive               := nil;
   bIsModal                := false;
   if ( Assigned(ctrlForeground) and
        (ctrlForeground is TCustomForm) ) then begin
      frmActive            := TCustomForm( ctrlForeground );
      bIsModal             := ( fsModal in frmActive.FormState );
   end;
...

1.) how do I get if the foreground window is modal?
I find the correct foreground Form in the above code snippet but the FormState never contains fsModal - only fsVisible...
2.) the procedure will not be called if a dialog pops up (e.g. a TPrinterSetupDialog)

EDIT: I even tried to use Screen.OnActiveControlChange - with same result (will also not be called if the modal foreground dialog e.g. is a TPrinterSetupDialog).

[Uwe Raabe]

BTW, warum plötzlich in Englisch?

[Bodenseematze]

Zitat von Uwe Raabe:

BTW, warum plötzlich in Englisch?

Weil peterbelow auf Englisch geantwortet hatte und ich wollte, dass er meine Rückfragen versteht...

[Uwe Raabe]

Die Frage ging auch eigentlich an Peter, der hier ja schon so einige Posts in Deutsch abgesetzt hat.

Ich muss allerdings zugeben, dass mir das auch gelegentlich passiert. Man verliert manchmal den Kontext, wenn man in beiden Foren gleichzeitig unterwegs ist.

[peterbelow]

Zitat von Uwe Raabe:

Die Frage ging auch eigentlich an Peter, der hier ja schon so einige Posts in Deutsch abgesetzt hat.

Ich muss allerdings zugeben, dass mir das auch gelegentlich passiert. Man verliert manchmal den Kontext, wenn man in beiden Foren gleichzeitig unterwegs ist.

Genau das ist mir passiert, war vorher gerade im englischen Forum unterwegs. Man wird halt nicht jünger...