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

Вниз

Form.OnCloseQuery - Как обработать ?   Найти похожие ветки 

 
Андрей Сенченко   (2001-12-18 12:49) [0]

Что сделать, чтобы не дать программе закрытся ?
В обработчик Form.OnCloseQuery ставлю:

If MessageBox(0,pchar("Вы действительно хотите завершить работу с программой ?"),pchar("Внимание !"),MB_OKCANCEL + MB_ICONQUESTION) = IDOK
Then
// ....
// Совершение действий, необходимых перед выходом
//
Else
// ??????????????
End;

А вот собственно где вопросы - никак не могу найти - как прервать завершение программы.
Подскажите пожалуйста - где искать ? Спасибо.


 
Виктор Щербаков   (2001-12-18 12:58) [1]

Ну пример же в хэлпе есть...
CanClose := false


 
Андрей Сенченко   (2001-12-18 13:01) [2]

Не в хелпе искал - в книжках. На этой тачке у меня ни Help ни SDK не установлен - винта не хватает.

Спасибо :)


 
csf   (2001-12-18 13:03) [3]

Под Query подразумевается не твой Query пользователю, а запрос "окна" тебе, как разработчику "Оцени, мол, могу я закрыться или нет".

Метод имеет параметр, смотри внимательно.
FormCloseQuery(Sender: TObject; var CanClose: Boolean);


 
Андрей Сенченко   (2001-12-18 13:10) [4]

>> csf
> Под Query подразумевается не твой Query пользователю, а запрос "окна"
> тебе, как разработчику "Оцени, мол, могу я закрыться или нет".

Это я знаю, не совсем глупый :)

> Метод имеет параметр, смотри внимательно.
> FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Говорю же : Ctrl-F1 на этой тачке не отрабатывет за отсутствием установленного хелпа. А вот на
" var CanClose: Boolean "
не посмотрел ... бывает.

Всем спасибо !



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

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

Наверх




Память: 0.45 MB
Время: 0.007 c
3-21947
DieHard
2001-12-05 13:18
2002.01.08
Получение из таблицы Oracle списка индексов


14-22336
Иван Шихалев
2001-11-02 23:31
2002.01.08
Золотой банан


14-22414
wHammer
2001-11-12 10:48
2002.01.08
Delphi 5 and(or(xor)) C++ Builder 5?


4-22456
RedMax
2001-11-01 11:10
2002.01.08
COM объекты NetMeeting


14-22407
KL
2001-11-03 00:47
2002.01.08
Бета тестинг!!!





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