Ich führe folgende Anweisungen aus, wenn ich das Programm schließen möchte:
Delphi-Quellcode:
if(DataObject.bModifiedSincLastSave) then begin
tmp := MessageDlg(csWarningText, mtConfirmation, [mbYes, mbNo, mbCancel], 0, mbYes);
case tmp of
mrYes : SaveClick(self); // Speichern
mrCancel: Result := False; // Anwender will weiterarbeiten
mrNo : Result := True; // Programm darf geschlossen werden
else ASSERT(b(False));
end;
end;
Wenn ich jetzt den Button "Yes" klicke, komme ich in den "else" Fall.
Was läuft da falsch?