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

Вниз

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

Наверх




Память: 0.47 MB
Время: 0.011 c
1-22080
Delphimun
2001-12-18 17:11
2002.01.08
Как загрузить курсор из ресурса, а потом сохранить его на диске?


3-21977
Амелин Вадим
2001-12-03 20:42
2002.01.08
Создание БД в InterBase


4-22492
neverbee
2001-11-06 12:11
2002.01.08
Открытие вордового документа.(+)


4-22489
Skiv
2001-11-05 09:55
2002.01.08
Вывод версии *.exe


4-22477
Art
2001-10-31 12:17
2002.01.08
Как увидеть все процессы запущенные всеми прогами?