| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Закрытие дочерней формы или всего приложения. [D5, WinXP]
Charly22 © (2004-10-02 20:37:00)Доброго времени суток всем!
Для того, чтобы избежать случайного закрытия дочерней формы, я написал для нее следующее:
procedure TChForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (MessageBox(MainForm.Handle,
PChar('Завершить работу с этим набором данных?'),
PChar('Завершение работы с набором изображений'),
MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_TASKMODAL) = IDNO)
then CanClose := False;
end;
При попытке закрыть одну из дочерних форм, и при положительном ответе, все формы закрываются сразу, А вопрос показывается только один раз. Тут все нормально, так задумано.
Но если я буду закрывать главную форму, то опять появляется этот же вопрос. Причем, он появляется столько раз, сколько дочерних окон у меня открыто. Что в общем неудобно.
Я хотел бы, чтобы при попытке закрыть главную форму появлялся один вопрос, типа: "Завершить работу с программой?" и все. Если "Да", то надо просто закрыть все и не показывать больше никаких вопросов.
Как тут разрулить эту ситуацию? Ведь главная форма, прежде чем сама закроется, закрывает сначала все дочерние окна. Т.е. событие OnCloseQuery для дочерней формы происходит раньше, чем OnCloseQuery для главной формы.
KilkennyCat (2004-10-02 23:15:00) [1]Во:
procedure TChForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Flaf = надо then
if (MessageBox(MainForm.Handle,
PChar('Завершить работу с этим набором данных?'),
PChar('Завершение работы с набором изображений'),
MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2 + MB_TASKMODAL) = IDNO)
then CanClose := False else Flag := ненадо;
end;
в каждой форме. первая же закрывающая выставит флаг. Не проверял.
KilkennyCat (2004-10-02 23:12:00) [2]ща подумаю, чето запутался, кто раньше, кто позже... :) ща покурю и выдам гениальное решение.
Charly22 (2004-10-02 22:23:00) [3]Ага. Сделать флаг. Его значение присваивать в OnCloseQuery главной формы, а в OnCloseQuery дочерней формы производить проверку этого флага, и в зависимости от этого выводить или не выводить вопрос....
Все это уже пробовали - не прокатило. OnCloseQuery дочерней формы выполняется _РАНЬШЕ_, чем OnCloseQuery главной формы.
Еще есть какие-нибудь варианты?
Спасибо за внимание!
KilkennyCat (2004-10-02 20:55:00) [4]навскидку: сделать флаг.
| |
