Главная страница
    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.005 c
3-39676
борисыч
2002-04-18 07:50
2002.05.13
Есть подозрение, что многопоточность BDE, IBX - миф.


4-39909
SerVS - S
2002-03-12 17:10
2002.05.13
HOOKs


1-39685
Demon Ltd
2002-04-26 22:05
2002.05.13
POPUP меню


3-39657
VAleksey
2002-04-17 09:51
2002.05.13
Еще один (2-а) теоретический вопрос про индексы Paradox.


3-39680
QWest
2002-04-17 10:59
2002.05.13
Вопрос по FoxPro.





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