нажатие кнопки "X" на форме

[strannik]

Приветствую всех! Подскажите как отловить нажатие (да и вообще любое событие) на системной кнопке заголовка формы-проще крестик.
Заранее спасибо!

[Speeker]

А чем OnClose не подходит?

[Сильванович Михаил]

Доброго всем времени суток!
Ответов на этот вопрос, я думаю, может быть несколько. Это связано с тем,
зачем нам это нужно.
1) Если требуется отловить попытку закрытия программы и предотвратить
ее закрытие, то нам нужно OnCanClose

2) Если просто по закрытии надо чего-то сделать, то OnClose

3) Допустим, у нас создан объект, который надо уничтожить из памяти,
чтобы все остальные программы и система работала корректно, то
мы уже будем использовать OnDestroy

На 3х вариантах остановимся, пожалуй, остановлюсь...

[RammFan]

не могли бы вы подробнее расписать, как предотвратить закрытие программы?

[oLMeR]

На ивнт OnCloseQuery твоей главной формы пишеш различные условия, и если ты хочешь чтобы форма могла закрытся пишешь canclose:=true а если нет то canclose:=false вот пример

if MessageDlg('Вы уверены?',mtConfirmation,mbYesNoCancel,0)=mrYes then CanClose:=true else CanClose:=false;

Мож глянуть как работает на примере таком Budilnic.rar

[Dunpeal]

Я пользуюсь такой конструкцией.
Вешается на OnClose

begin
if MessageDlg('Хотите закрыть программу?',mtConfirmation,[mbYes,mbNo],1)=mrYes then
Action:=caFree //закрыть прогу
else Action:=caNone; // незакрывать прогу
end;

В OnClose можно впихнуть любое условие, например проверку даты и времени, чтобы прогу можно было закрыть раз в году 8-)
Главное тут Action:=caFree и Action:=caNone, там ещё какие-то два значения, но я не помню что они делают... проверять лениво...

[xxbesoxx]

Dunpeal Всё правильно говоришь и пишешь