Unison

Delphi 12. MDI приложение. Событие при закрытии главной формы

Unison's photo
Unison
·

1 min read

Delphi 12. MDI приложение. Событие при закрытии главной формы:

  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. В чем может быть проблема?

После долгих поисков нашел источник проблемы. Странно. У меня указан стиль "Lavender Classico". Если в главной форме в свойстве StyleElements включен seBorder, то наблюдается данная ситуация. Убрал галочку, все норм Глюк наверное в Delphi 12?

Delphi