ShowModal EnableSynchronousOperations закрытие модального окна после указания состояния ModalResult

[turan]

Доброе время суток! Столкнулся с проблемой. В MainModule свойство EnableSynchronousOperations стоит True. Использую свойство EnableSynchronousOperations := True для того чтобы операция стопорилась после вызова формы через ShowModal и не продолжалась пока не была нажата кнопка Ок или Отмена. Но есть один момент, то что после нажатия на модальной форме кнопки ОК (ModalResult := mrOK), форма сразу не закрывается, а ждет пока не завершатся все операторы после ShowModal. Пример выложил ShowModalTest.zip

[Sherzod]

Добрый день,

Мы проанализируем

Но пока как обходной путь, попробуйте использовать такой подход:

procedure TfmMessage.btnOkClick(Sender: TObject);
begin
  Self.Visible := False;
  ModalResult := mrOK;
end;

И еще Вы должны показывать маску, после закрытия "окна"

[turan]

57 minutes ago, Sherzod said:

Добрый день,

Мы проанализируем

Но пока как обходной путь, попробуйте использовать такой подход:

procedure TfmMessage.btnOkClick(Sender: TObject);
begin
  Self.Visible := False;
  ModalResult := mrOK;
end;

И еще Вы должны показывать маску, после закрытия "окна"

спасибо! Добавил еще  UniSession.Synchronize(); и все заработало
procedure TfmMessage.btnOkClick(Sender: TObject);
begin
    Self.Visible := False;
    UniSession.Synchronize();
    ModalResult := mrOK;
end;