Firemonkey und OnModalBegin/OnModalEnd

[Rollo62]

Ja sorry, ich hatte es nur überflogen.
Was ich meinte war den Mechanismus mit anonymous zu benutzen, kkönnte man ja auch in eigenen Klassen, abeleiteten Formen.

Delphi-Quellcode:

procedure StartTheModal;
begin

  ShowTheGreyBackground;  

  MyForm.Execute(procedure(const AResult: TModalResult)
                           begin
                              case AResult)
                              end;

                              RemoveTheGreyBackground;
                           end);      

  // Das Ganze ist dann non-blocking und läuft hier weiter
end;