Главная страница
    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
14-39844
savva
2002-04-04 10:22
2002.05.13
После большого числа веток про единство и борьбу...


1-39778
~DR~
2002-04-28 20:48
2002.05.13
STRINGGRID


3-39678
Андрусь
2002-04-15 19:58
2002.05.13
Народ как сделать небазовый элемент


1-39756
Demon Ltd
2002-04-28 00:44
2002.05.13
Работа с фильтрацией


1-39739
Wolfezz
2002-04-27 17:49
2002.05.13
Access violation at address ....





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