if MessageDlg('Вы действительно хотите выйти из программы?',mtWarning,[mbYes,mbNo],0) = mrNo then
CanClose := False
else
begin
CanClose := True;
uf_WriteToLog('Main Form. Form Close Query confirmed',[]);
end;
Отлично работала в Delphi 11.3
После перехода в Delphi 12 заметил странность: Данный код вызывается дважды. Первый раз главная форма исчезает и опять выводится диалог MessageDlg. В чем может быть проблема?
В 12 что то меняли с MDI
Странно. Если в главной форме в свойстве StyleElements включен seBorder, то наблюдается данная ситуация. Убрал галочку, все норм Глюк наверное в Delphi 12?
Вроде патч уже вышел с фиксом MDI.
Я установил патч: копированием файлов по соответствующим папкам. Через батник выдавал ошибку, напомню уже какую
Обсуждают сегодня