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;