ExtDlgs: set UserChoice in TCalendarDialog.OnDialogCloseQuery.

git-svn-id: trunk@52807 -
This commit is contained in:
bart 2016-08-14 16:56:52 +00:00
parent e1d3e708ed
commit 31a5dce8e4

View File

@ -714,6 +714,10 @@ procedure TCalendarDialog.OnDialogCloseQuery(Sender: TObject;
var CanClose: boolean); var CanClose: boolean);
begin begin
//if Assigned(OnCanClose) then OnCanClose(Sender, CanClose); //if Assigned(OnCanClose) then OnCanClose(Sender, CanClose);
if DlgForm.ModalResult = mrOK then
UserChoice := mrOk
else
UserChoice := mrCancel;
DoCanClose(CanClose); DoCanClose(CanClose);
end; end;