hi maximov, wie gesagt, mit deinem Vorschlag hab ich's hingekriegt.
Nur noch der Vollständigkeit halber:
Delphi-Quellcode:
function TModalForm.ShowModal: Integer;
begin
if IchWillKeineForm
then ModalResult := mrCancel
else result := inherited showModal;
end;
bingt bei mir eine Compiler-Warnung, aber nach Änderung von ModalResult in Result meckert sie nicht mehr.
Besten Dank allen Mitdenkern und schönes Wochenende.
BTW, ich finde den Film "Die Passion" entgegen der übertriebenen Medienmeinung sehenswert.