MSMK Posted November 21, 2018 Share Posted November 21, 2018 Доброе время суток! Столкнулся с проблемой. В MainModule свойство EnableSynchronousOperations стоит True. Использую свойство EnableSynchronousOperations := True для того чтобы операция стопорилась после вызова формы через ShowModal и не продолжалась пока не была нажата кнопка Ок или Отмена. Но есть один момент, то что после нажатия на модальной форме кнопки ОК (ModalResult := mrOK), форма сразу не закрывается, а ждет пока не завершатся все операторы после ShowModal. Пример выложил ShowModalTest.zip Quote Link to comment Share on other sites More sharing options...
Sherzod Posted November 21, 2018 Share Posted November 21, 2018 Добрый день, Мы проанализируем Но пока как обходной путь, попробуйте использовать такой подход: procedure TfmMessage.btnOkClick(Sender: TObject); begin Self.Visible := False; ModalResult := mrOK; end; И еще Вы должны показывать маску, после закрытия "окна" Quote Link to comment Share on other sites More sharing options...
MSMK Posted November 21, 2018 Author Share Posted November 21, 2018 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; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.