Folgender Code stürzt die APP ab ( APP angehalten -> Neustart ), wenn ich auf Abbrechen drücke. Reproduzierbar.
Die showmessage werden auch gar nicht angezeigt.
Code:
Inputbox('Passwort','Passwort:','',procedure(const AResult: TModalResult; const AValue: string)
begin
case aresult of
mrok:begin
// Hier ist alles ok
end;
mrabort:begin
ShowMessage('Vorgang abgebrochen mrabort');
end;
mrcancel:begin
ShowMessage('Vorgang abgebrochen mrcancel');
end;
end;
end
);