[michael2000]

В какой-то момент времени решил в проекте заменить стандартные MessageDlg на более продвинутые TTaskDialog. И всё бы хорошо, но столкнулся со странной проблемой - когда программа скомпилирована с отладчиком, то окна TTaskDialog не выводятся на экран. А когда программа скомпилирована без отладчика, то всё нормально вызывается.
Вот такой функцией вызывается TTaskDialog:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

function ShowRussianMessageDialog(const DlgCaption: string; const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; const Title: String = ''): Integer; var   S: string;   Dialog: TTaskDialog; begin   if Trim(DlgCaption) = '' then     case DlgType of       mtWarning: S := 'Предупреждение';       mtError: S := 'Ошибка';       mtInformation: S := 'Информация';       mtConfirmation: S := 'Подтверждение';       mtCustom: S := '';     end   else     S := DlgCaption;   Dialog := TTaskDialog.Create(FindControl(Application.ActiveFormHandle));   try     Dialog.Caption := S;     Dialog.Text := Msg;     Dialog.Title := Title;     Dialog.Flags := Dialog.Flags + [tfPositionRelativeToWindow];     {$IFDEF VER340}     Dialog.Flags := Dialog.Flags + [tfSizeToContent];     {$ENDIF}     case DlgType of       TMsgDlgType.mtWarning: Dialog.MainIcon := tdiWarning;       TMsgDlgType.mtError: Dialog.MainIcon := tdiError;       TMsgDlgType.mtInformation: Dialog.MainIcon := tdiInformation;       TMsgDlgType.mtConfirmation: Dialog.MainIcon := tdiShield;     end;     Dialog.CommonButtons := [];     if mbOk in Buttons then       Dialog.CommonButtons := Dialog.CommonButtons + [tcbOk];     if mbYes in Buttons then       Dialog.CommonButtons := Dialog.CommonButtons + [tcbYes];     if mbNo in Buttons then       Dialog.CommonButtons := Dialog.CommonButtons + [tcbNo];     if mbCancel in Buttons then       Dialog.CommonButtons := Dialog.CommonButtons + [tcbCancel];     if mbRetry in Buttons then       Dialog.CommonButtons := Dialog.CommonButtons + [tcbRetry];     if mbClose in Buttons then       Dialog.CommonButtons := Dialog.CommonButtons + [tcbClose];       Dialog.Execute;     Result := Dialog.ModalResult;   finally     Dialog.Free;   end; end;

Может кто подскажет в чём ошибка?