Firemonkey und OnModalBegin/OnModalEnd

[sintronic86]

Hallo Community,

wieder einmal habe ich eine Frage zum Thema Firemonkey.

Ich nutze schon seit langem die TApplicationEvents in der VCL. Dort benutzer ich immer die Events OnModalBegin und OnModalEnd um das Fenster, welches ein anderes aufruft, abzudunkeln. Ich finde diesen Effekt echt super.

Nun habe ich ein Firemonkey-Projekt und möchte dort den selben Effekt erziehlen.

Leider gibt es dort (scheinbar) weder TApplicationEvents noch eine andere Möglichkeit auf die oben beschriebenen Events zu zugreifen.

Hat einer von euch eine Idee, wie man das trotzdem bewerkstelligen kann?


Vielen Dank und beste Grüße
Björn

[Der schöne Günther]

Ich habe für genau den gleichen Effekt immer das ShowModal() meiner Formular-Basisklasse überschrieben, die Events habe ich nie gebraucht.

Edit: Oh, FMX.Forms.TCommonCustomForm.ShowModal() ist leider überhaupt nicht virtuell. Also auch keine Option.

PS: Auf FMX wäre vielleicht der TFrameStand eine Option. Damit hätte man zwar kein zweites Fenster, aber könnte "neuen Content" mit Ablendeffekt vor das Hauptformular legen.

[Rollo62]

Bei Fmx gibts kein Modal, dann schmeisst dich das Phone wieder raus.

Deshalb sollte man das über die Varianten mit anonymous Proc abwickeln.

Rollo

[sintronic86]

@Rollo62:
Da es sich bei meinem Projekt um eine reine Windows-Anwendung handelt, sollte das prinzipiell kein Problem sein!
Kannst du deine Links etwas näher erläutern? Mir ist gerade nicht ganz bewusst, wie Dialogs.MessageDialog mit dem Abdunkel-Effekt bei einem ShowModal -Aufruf einer Form zu tun hat!

[Der schöne Günther]

Eine Notlösung wäre ein TRectangle mit Align = Client und Opacity = 0,75 aufs Formular zu legen. Und ganz in den Hintergrund zu schicken.

Abblenden ginge dann ungefähr so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Rectangle1.BringToFront();
   Rectangle1.Fill.Kind := TBrushKind.Solid;
   Rectangle1.Fill.Color := TAlphaColors.Black;
   try
      anderesFormular.ShowModal();
   finally
      Rectangle1.Fill.Kind := TBrushKind.None;
      Rectangle1.SendToBack();
   end;
end;

Eigentlich wären die FMX-Effekte dafür super gedacht, aber die funktionieren anscheinend nicht wenn man sie direkt auf ein Formular setzt.

[Harry Stahl]

Ich glaube dem Thread-Ersteller geht es weniger um die Frage, wie man das Formular abblendet, sondern, wie man an die Information gelangt, wann ein eigenes modales Formular angezeigt wird.

Es gibt zwar in der Tat kein OnModalBegin/OnModalEnd unter FiremMonkey, aber FMX arbeitet auch selber mit dem TMessageManager, um im System bestimmte Botschaften zu senden und darauf reagieren zu können.

Da kannst Du Dich einfach einklinken, im Oncreate-Event der Mainform nimmst Du auf:

Delphi-Quellcode:

 TMessageManager.DefaultManager.SubscribeToMessage (TFormBeforeShownMessage,
   procedure (const sender: TObject; const M: TMessage)
   begin
     // Diese Prozedur wird nun immer aufgerufen, wenn eine Form im Programm Modal angezeigt wird
     FadeTransitionEffect1.Enabled :=True; // z.B. ein TLayout als Parent in der Mainform, dass diesen Effekt hat
   end);

Die Unit System.Messaging wird benötigt.

Den Effekt kannt Du dann im Activate-Event der Mainform wieder ausschalten (oder Du schreibst Dich zusätzlich mit dem Message-Manager in die Activate-Botschaft ein).

Hinweis 1: Habe hier den DefaultMessage-Manager verwendet, bei Bedarf kann man einem eigenen erstellen ([Eigenwerbung an: ]falls Dir das Thema MessageManager nichts sagt, findest Du bei Bedarf in meinem neuesten FMX-Buch Informationen dazu in einen eigenen Kapitel zum TMessageManager (Kapitel 9)[/Eigenwerbung aus]).

Hinweis 2: Beim Aufruf von "ShowMessage" funktioniert das nicht, da das intern anders gehandelt wird, da musst Du selber eine ShowMessage-Funktion erstellen, die zuvor den Effekt macht und danach ihn wieder aufhebt.

Siehe auch anliegenden Screenshot.