Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как перед закрытием приложения... [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 ; // незакрыть
----


Наверх

Титульная страница Поиск, карта сайта Написать письмо