Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

Закрытие дочерней формы или всего приложения.   Найти похожие ветки 

 
Charly22   (2004-10-02 20:37) [0]

Доброго времени суток всем!

Для того, чтобы избежать случайного закрытия дочерней формы, я написал для нее следующее:


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 20:55) [1]

навскидку: сделать флаг.


 
Charly22   (2004-10-02 22:23) [2]

Ага. Сделать флаг. Его значение присваивать в OnCloseQuery главной формы, а в OnCloseQuery дочерней формы производить проверку этого флага, и в зависимости от этого выводить или не выводить вопрос....

Все это уже пробовали - не прокатило. OnCloseQuery дочерней формы выполняется _РАНЬШЕ_, чем OnCloseQuery главной формы.

Еще есть какие-нибудь варианты?
Спасибо за внимание!


 
KilkennyCat ©   (2004-10-02 23:12) [3]

ща подумаю, чето запутался, кто раньше, кто позже... :) ща покурю и выдам гениальное решение.


 
KilkennyCat ©   (2004-10-02 23:15) [4]

Во:

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;


в каждой форме. первая же закрывающая выставит флаг. Не проверял.



Страницы: 1 вся ветка

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
14-1096263400
Lola
2004-09-27 09:36
2004.10.17
Кажется пора завести дайджест "Самый оригинальный спам" :)


4-1094999780
Колбасьев
2004-09-12 18:36
2004.10.17
Как скрыть кнопку на панели задач?


14-1095341815
MYSTERYO
2004-09-16 17:36
2004.10.17
Интернет казино. Насколько реально там выиграть и можно ли вообще


1-1096624797
antonn
2004-10-01 13:59
2004.10.17
Поиск по маске


6-1091730361
Alexis
2004-08-05 22:26
2004.10.17
Проблема с определением IP компов LAN a