Главная страница
    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
1-39801
stas_rus
2002-04-29 08:11
2002.05.13
Прозрачность форм


1-39715
Satrap
2002-04-27 10:13
2002.05.13
Палитра компонентов


3-39682
Chainik
2002-04-17 11:02
2002.05.13
компоненты ODAC/DAO для Oracle


1-39753
Deus
2002-04-27 13:14
2002.05.13
TWebBrowser - как сохранить файл?


7-39860
Ptr
2002-02-13 09:33
2002.05.13
Помогите pls, загрузить свой курсор в чужое приложение





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