Последняя версия DataExpress 3 beta от 15 января 2019 года. Скачать. Энциклопедия DX.

Закрытие EditWindow

Все о том как сделать что-то с помощью скриптов.
jurist23rus
Эксперт
Сообщения: 2508
Зарегистрирован: Пт сен 30, 2016 9:42 am
Откуда: Майкоп

Закрытие EditWindow

Сообщение jurist23rus » Ср янв 09, 2019 6:56 pm

Как добиться закрытия EditWindow до появления сообщения?

Код: Выделить всё

procedure Close (Sender: TObject);
begin
  Self.Post;
  Self.EditWindow.Close;
  Application.ProcessMessages;
  MsgBox ('', '');
end;

procedure Form_Create;
begin
  dxButton1.OnClick := @Close;
end;
Вложения
ЗАКРЫТИЕ EDITWINDOW.ZIP
(45.22 КБ) 3 скачивания
Destiny is a very convenient word for those who never take decisions.

jurist23rus
Эксперт
Сообщения: 2508
Зарегистрирован: Пт сен 30, 2016 9:42 am
Откуда: Майкоп

Re: Закрытие EditWindow

Сообщение jurist23rus » Ср янв 09, 2019 7:28 pm

Сделал таймер - работает. Непонятно, почему Application.ProcessMessages не помогает?
Destiny is a very convenient word for those who never take decisions.

Аватара пользователя
admin
Разработчик
Сообщения: 4029
Зарегистрирован: Пн мар 14, 2016 11:32 am
Откуда: Ленинградская

Re: Закрытие EditWindow

Сообщение admin » Ср янв 09, 2019 8:56 pm


jurist23rus
Эксперт
Сообщения: 2508
Зарегистрирован: Пт сен 30, 2016 9:42 am
Откуда: Майкоп

Re: Закрытие EditWindow

Сообщение jurist23rus » Ср янв 09, 2019 9:05 pm

Там нет ответа на мой вопрос. Наоборот, из смысла статьи следует, что в моём случае Application.ProcessMessages как раз должен помочь, но не помогает.
Destiny is a very convenient word for those who never take decisions.

Аватара пользователя
admin
Разработчик
Сообщения: 4029
Зарегистрирован: Пн мар 14, 2016 11:32 am
Откуда: Ленинградская

Re: Закрытие EditWindow

Сообщение admin » Ср янв 09, 2019 10:03 pm

Попробуйте так:

Код: Выделить всё

procedure Close (Sender: TObject);
begin
  Self.Post;
  Self.EditWindow.Hide;
  MsgBox ('', '');
  Self.EditWindow.Close;
end;

jurist23rus
Эксперт
Сообщения: 2508
Зарегистрирован: Пт сен 30, 2016 9:42 am
Откуда: Майкоп

Re: Закрытие EditWindow

Сообщение jurist23rus » Чт янв 10, 2019 8:37 am

Это работает и это проще таймера.
Destiny is a very convenient word for those who never take decisions.