Скачать: CL | DM;

Как перед закрытием приложения...   Найти похожие ветки 

← →
Начинаю   (2002-08-08 16:29) [0]

Мастера, подскажите.
Как перед закрытием приложения проверить условие.
Если оно выполнено, то выполнить действие и закрыть приложение.
Если нет, просто закрыть приложение.

---

← →
Skier ©   (2002-08-08 16:33) [1]

>Начинаю
Создай обработчик 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) [2]

Обработай событя в головной форме CloseQuery
----
Че то сделать ... и установить
CanClose := True; // закрыть
CanClose := False ; // незакрыть
----

---

← →
Начинаю   (2002-08-09 10:30) [3]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c