Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.112 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Firemonkey und OnModalBegin/OnModalEnd

  Alt 4. Mai 2017, 16:21
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.
  Mit Zitat antworten Zitat