Пытаюсь отследить завершение работы 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 - если я ничего не путаю.

Удачи!

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