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

Вниз

Обработка 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;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.004 c
14-39825
VictorT
2002-03-29 13:26
2002.05.13
Миг-29


14-39849
vopros
2002-04-04 12:03
2002.05.13
Люди кто нибудь пользовался ипотечным кредитом?


14-39845
Shaman_Naydak
2002-04-01 12:19
2002.05.13
Подскажите, как мне поступить?!


1-39719
mclean
2002-04-27 11:32
2002.05.13
как сделать форму модальной


1-39768
Sewix
2002-04-28 15:05
2002.05.13
ListBox





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский