Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

!Han! (2006-01-04 00:04:00) [1]
В обьктном инспекторе убираеш с формы єтот крестик (надеюсь ты знаеш как это делаеться)и создаеш обработчик событий на событие Onclik и прописуеш кнопке этот код
begin
form1.close;
end;

Leonid Troyanovsky (2006-01-03 16:12:00) [2]

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

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

--
Regards, LVT.

Джо (2006-01-03 15:20:00) [3]
[5] Чародей ©
> А CloseQuery CanClose:=False запрещает любое закрытие,

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

Джо (2006-01-03 15:19:00) [4]
[5] Чародей ©
> Если просто убрать крестик это не отменит Alt+F4.

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

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

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

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

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

Джо (2006-01-02 00:29:00) [6]
Точно... Самый верный рецепт против закрывания "крестиком". Лучше только лампадка на грудь :)

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

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

KvORubin (2006-01-01 23:53:00) [9]
Удалено модератором
Примечание: Создание пустых сообщений

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »