![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как перед закрытием приложения... [D5, NT4, Win2k]
Начинаю © (2002-08-08 16:29:00)Мастера, подскажите.
Как перед закрытием приложения проверить условие.
Если оно выполнено, то выполнить действие и закрыть приложение.
Если нет, просто закрыть приложение.
Начинаю (2002-08-09 10:30:00) [1]Спасибо!
Skier (2002-08-08 16:33:00) [2]>Начинаю
Создай обработчик OnCloseQuery у главнойформы
приложения и напиши примерно так :
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if YourCondition then CanClose := True
else CanClose := False;
end;
Ura (2002-08-08 16:33:00) [3]Обработай событя в головной форме CloseQuery
----
Че то сделать ... и установить
CanClose := True; // закрыть
CanClose := False ; // незакрыть
----