Отлов событий

[Antoha]

Здравствуйте.скажите пож... как можно отловить событие CLOSE формы.
Событие MINIMIZE формы я отлавливаю след. образом:

Procedure TForm1.WindowMessage (Var Msg:TMessage);
begin
  if Msg.WParam=SC_MINIMIZE then
    begin
      //Сворачиваю прогу в Tray
      Form1.Hide;
      TrayIcon1.IconVisible := True;
    end
  else inherited;
end;

А вот с CLOSE никак не получается.

[mihali4]

Это, ну очень сложно...
FormClose или Form.OnClose
Стандартное событие у формы, наблюдается в инспекторе объектов, на 2-й вкладке...

[Antoha]

mihali4, конечно большое спасибо, но жаль что Вы не заметили кода, который указан в моем вопросе. Хотя конечно возможно я недостаточно четко пояснил условия задачи. Дело в том, что моя прога должна сворачиватся в Tray и на событие MINIMIZE и на событие CLOSE, а если зделать при помощи обработки события формы OnCloseQuery, то прога не даст перезагрузить или выключить комп.

Вообщем то решение я нашел это:

//Отлавливаем события формы, когда MINIMIZE или CLOSE сворачиваем её в Tray
Procedure TForm1.WindowMessage (Var Msg:TMessage);
begin
  if (Msg.WParam=SC_MINIMIZE) or (Msg.WParam=SC_CLOSE) then
    begin
      Form1.Hide;
      TrayIcon1.IconVisible := True; // минимизируемся
      Msg.result:=1; // и больше ни чего не делаем
    end
  else
    inherited; //Делаем, что положено
end;

Надеюсь кому-нибудь это решение пригодится...

[_SERGEYX_]

Но все равно должна быть возможность закрыть программу (например, из меню в трее)?
Почему бы не сделать глобальную переменную
aClose: Boolean;
При создании формы
aClose := False;
В обработчике OnCloseQuery

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := aClose;
  Application.Minimize;
end;

А при клике в меню (где нужно действительно закрыть)

 
 aClose := True;
  Close;