Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 514

Раздел: Delphi » Прочее
/ вопрос открыт /

Приветствую, уважаемые эксперты!

Почему при нажатии кнопки закрытия формы (крестик) или Alt+F4 игнорируется CloseQuery? И как с этим бороться?

Тов. Женька Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Тов. Женька (статус: 3-ий класс)
Вопрос отправлен: 13 марта 2009, 14:57
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 6; последнее сообщение — 15 марта 2009, 11:36; участников в обсуждении: 3.
Вадим К

Вадим К (статус: Академик), 13 марта 2009, 15:01 [#1]:

Не должно игнорировать. всегда вызывается. Ну разве что кроме того случая, когда приложение "прибивается" с диспетчера задач.
Галочка "подтверждения прочтения" - вселенское зло.
Тов. Женька

Тов. Женька (статус: 3-ий класс), 13 марта 2009, 15:21 [#2]:

Действительно, не игнорируется. Просто если не вдаваться в дебри моего творчества, то получается следующее:

procedure TConfigF.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (DM.Config.Modified) and (ModalResult <> mrOK) then
begin
ModalResult := MessageBox(0, 'Сохранить изменения?', Pchar(Application.Title), mb_YesNoCancel+mb_iconWarning);
CanClose := ModalResult <> mrCancel;
end;
end;

Вся загвоздка в свойстве Modified. Оно становится True, если я отредактировал поле в Edit`e и перешел, к примеру, на другое поле.
Т.е. Edit потерял фокус, а Modified стало True. А если же оставаясь в Edit`e закрыть форму одним из перечисленных способов, то Modified остается False, дальше и происходит, то, на что я и жаловался.
Вот над этим я и думаю.
Вадим К

Вадим К (статус: Академик), 13 марта 2009, 16:05 [#3]:

а кто мешает по OnChange проверять? То есть, заводим глобальную переменную (свойство класса формы) и по срабатыванию OnChange для всех нужных элементов выставляем её в true
А при сохранении выставляем в false. И всех делов.
Галочка "подтверждения прочтения" - вселенское зло.
Косолапов Дмитрий Юрьевич

Косолапов Дмитрий Юрьевич (статус: 8-ой класс), 13 марта 2009, 17:36 [#4]:

А ModalResult зачем проверяете?
Вадим К

Вадим К (статус: Академик), 13 марта 2009, 17:46 [#5]:

Всё правильно преверяют. А то в противном случае появляются незакрываемые формы - вот это самое большое зло.
Хотя я бы проверял немного по другому - ModalResult = mrOk - что бы была возможность закрыть по крестику.
Галочка "подтверждения прочтения" - вселенское зло.
Тов. Женька

Тов. Женька (статус: 3-ий класс), 15 марта 2009, 11:36 [#6]:

По поводу глобальной переменной абсолютно согласен, так и буду делать. Просто раньше я всегда ставил свойство формы biSystemMenu в False и не заморачивался на счет всего остального. А тут решил попробовать и сразу не понял в чем дело, панику развел.

На счет проверки ModalResult = mrOK.
В моем случае это не совсем годиться. Дело в том, что форма не должна закрываться только если ModalResult = mrCancel, во всех остальных - должна. Поэтому только на mrCancel и проверяю.
Первая проверка ModalResult <> mrOK существует только из-за кнопки "Сохранить" которая mrOk и возвращает. А помимо этого могут возвращаться еще mrYes и mrNo (благодаря MessageBox), поэтому я пошел по кратчайшему пути.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:41
Выполнено за 0.03 сек.