Как запретить и перехватить выход из программы верхним крестиком?

← →
KvORubin © (2006-01-01 22:44) [0]

желательно чтобы выход был исключительно через моё CLOSE;

← →
KvORubin © (2006-01-01 23:53) [1]

Удалено модератором
Примечание: Создание пустых сообщений

← →
Джо © (2006-01-02 00:02) [2]

Что такое "моё CLOSE"? Кстати, не лучше ли убрать тогда этот "крестик"?

← →
ArtemESC © (2006-01-02 00:28) [3]

Наверное так:
Object Inspector |Events|OnCloseQuery : CloseQuery
...
procedure TForm1.CloseQuery(Sender: TObject; var CanClose: Boolean); begin ... //если после окончания процедуры CanClose = False значит прога не // закроется, CanClose = True закроется. ... end;

← →
Джо © (2006-01-02 00:29) [4]

Точно... Самый верный рецепт против закрывания "крестиком". Лучше только лампадка на грудь :)

← →
Чародей © (2006-01-03 12:19) [5]

> Джо © (02.01.06 00:02) [2]
> Что такое "моё CLOSE"? Кстати, не лучше ли убрать тогда
> этот "крестик"?

Если просто убрать крестик это не отменит Alt+F4. А CloseQuery CanClose:=False запрещает любое закрытие, даже снятие задачи проходит не мгновенно.

← →
Джо © (2006-01-03 15:19) [6]

[5] Чародей ©
> Если просто убрать крестик это не отменит Alt+F4.

А никто и не просил отменять Alt+F4, просили, цитирую:
> Как запретить и перехватить выход из программы верхним крестиком?

Так вот: нет "крестика", нет и "проблемы". Не нужно ничего "перехватывать" и "запрещать". Не так ли?

[5] Чародей ©
> А CloseQuery CanClose:=False запрещает любое закрытие,

А разве где-то требовалось "запрещать любое закрытие"?

> KvORubin © (01.01.06 22:44)
> желательно чтобы выход был исключительно через моё CLOSE;

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/77b9e4561f64d7df

--
Regards, LVT.

В обьктном инспекторе убираеш с формы єтот крестик (надеюсь ты знаеш как это делаеться)и создаеш обработчик событий на событие Onclik и прописуеш кнопке этот код
begin
form1.close;
end;

Как запретить и перехватить выход из программы верхним крестиком? Найти похожие ветки