Главная страница
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.017 c
1-22063
Art
2001-12-18 15:12
2002.01.08
А можно заблокировать доступ к папке,что-то типа fmShareExclusive ,но для папки???


1-22100
Avol
2001-12-15 18:29
2002.01.08
Как в Delphi сделать таблицу рекордов для игры?


1-22214
T2
2001-12-16 07:15
2002.01.08
BMP 2 RichEdit


7-22451
Dmitri
2001-09-23 12:36
2002.01.08
Директива {$I}


3-21998
Yu
2001-12-07 11:27
2002.01.08
Удаление записи из Query