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

[KodeZwerg]

Zitat:

Zitat von NoGAD (Beitrag 1536619)

Danke. Das ist auch eine sehr schöne Variante.

Sehr gerne!

Zitat:

Zitat von NoGAD (Beitrag 1536619)

Leider verstehe ich nicht, warum die Fensterfarbe immer in einem Grauton erscheint, selbst wenn ich ... clBlack

Weil clBlack keine SystemFarbe ist.
Du kannst von 0 bis 30 oder verfolge wo COLOR_WINDOW definiert ist um vielleicht noch andere Möglichkeiten zu finden. Im jetzigen zustand muss es eine Systemfarbe sein.
Zum "abdunkeln" wird sicherlich eine passen.

[NoGAD]

Danke für die Erklärung. :-)

LG Mathias

[Bodenseematze]

Auch wenn der Thread schon etwas älter ist...
...ich hänge mich mal an :wink:

Die Lösungen hier im Thread gehen immer davon aus, dass man das abdunkelnde Fenster selber erzeugt und zerstört, weil eine andere Form von der eigenen aus ShowModal angezeigt wird.

Ich möchte die Logik gerne umdrehen - d.h. ich möchte in meiner Form darauf reagieren, wenn irgendein anderer Dialog in meiner Applikation von irgendwoher ShowModal gesetzt wird.
Wenn das erkannt wird, soll die eigene Form abgedunkelt werden (d.h. das abdunkelnde Zusatz-Fenster erzeugt / angezeigt werden).

Aber wie erkenne ich das am Besten (ohne total kompliziert zu werden)?
Über Application.OnModalBegin?
Ist dort sicher, dass der Sender das Fenster ist, das modal geschaltet wird/wurde?
Und wie leite ich das dann an alle meine sichtbaren Forms weiter (sind alle von einer Basisklasse abgeleitet, d.h. prinzipiell machbar)?
Sollte auch funktionieren, wenn ein Standard-Dialog (z.B. MessageBox) modal aufgeschaltet wurde...

EDIT: inzwischen habe ich herausgefunden, dass die Verwendung des TMessageManager gut geeignet wäre - aber ich bin noch bei Delphi7 und da gibt's dennoch nicht - und auch keine 3rdParty Implementierung eines EventBus o.ä. :(, oder?

[peterbelow]

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

[Bodenseematze]

Zitat:

Zitat von peterbelow (Beitrag 1548964)

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:

Zitat von Uwe Raabe (Beitrag 1548971)

BTW, warum plötzlich in Englisch?

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

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

Zitat von Uwe Raabe (Beitrag 1549001)

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...:(