Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Form.OnCloseQuery - Как обработать ? Encontre agências semelhantes


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

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

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

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



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

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



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

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

Obrigado :)



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 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima















Memória: 0.83 MB
Hora: 0.032 c
4-22496
Wic
2001-10-29 18:54
2002.01.08
Как узнать, что Соединение установлено?


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


14-22361
Nikolay
2001-11-08 00:17
2002.01.08
Да...............................


14-22400
Ouriço
2001-11-11 17:10
2002.01.08
E por que todos estão lentos?


1-22211
uuuu
2001-12-13 22:46
2002.01.08
Добрый вечер, день, утро. Люди помогите !!! как набрать номер, переключиться в тоновой режим, и ввести случайный код*





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russian sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol