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

Пытаюсь отследить завершение работы Windows...   Найти похожие ветки 

← →
-Alex-   (2002-10-26 17:26) [0]

Привет.

Ребятки, ну, не получается у меня отследить завершение работы. В чём тут дело?

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg(" Вы уверены?", mtConfirmation, mbYesNoCancel, 0) = mrYes then
CanClose := true //Разрешаем завершение работы.
else
CanClose := false; //Nе разрешаем завершение работы.
end;

---

← →
Gandalf   (2002-10-26 21:30) [1]

>Ребятки, ну, не получается у меня отследить завершение работы. >В чём тут дело?
1) В Кол компонент Form (форма VCL), НИКАК не относится к программе. Привязывать к ней сообщения БЕСПОЛЕЗНО, их надо привязывать к аналогичным KOLForm.

2) События CloseQuery(которого нет в КОЛ) и Close(которое там есть), не сильно относятся к завершению Window. Они относятся к завершению программы.

3) Скорее тебе пойдет QueryEndSession - если я ничего не путаю.

Удачи!

---

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

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



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