Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Вниз

Обработка CloseQuery.   Найти похожие ветки 

 
Riko   (2002-04-29 14:59) [0]

У меня в программе есть Button1, при нажатии на который выводится диалог с кнопками Да и Нет, если нажимаешь нет - форма закрывается (так задумано). Также у меня обрабатывается событие CloseQuery - выводиться диалог - закрыть приложение или нет. Как можно в случае нажатия на Button1 подавить диалог, который вызывается событием CloseQuery ?


 
Song   (2002-04-29 15:02) [1]

Поставьте флажок в onCloseQuery и в зависимости от него выводите вопрос или нет. А сам флажок изменяте на TButton.Click


 
Riko   (2002-04-29 15:04) [2]

2Song © (29.04.02 15:02)
Как это можно сделать на практике?
Я не ахти какой programmer.
Заранее спасибо.


 
Song   (2002-04-29 15:07) [3]

Var Flag: Boolean;

TForm.CloseQuery:
IF not Flag then MessageDlg(...);

TButton.Click:
IF MessageDlg(...)=mbYes then Flag:=True;


 
Anatoly Podgoretsky   (2002-04-29 15:15) [4]

А зачем два одинаковых даиалога, как то непонятно


 
Riko   (2002-04-29 15:43) [5]

2Anatoly Podgoretsky © (29.04.02 15:15

Диалоги совершенно разные.



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

Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
6-39817
VELK
2002-02-27 09:24
2002.05.13
Chat без сервера


1-39795
Executor
2002-04-20 14:14
2002.05.13
StringGrid


14-39826
Alx2
2002-04-03 12:33
2002.05.13
Вопрос, скорее,


3-39664
Sava
2002-04-17 15:11
2002.05.13
Создаю таблицу... Грабли!


7-39865
pus
2002-02-04 04:01
2002.05.13
CD rom





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский