Не закрывающееся окно

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Не закрывающееся окно

Приходит как-то Билли Гейтс в Массачусетский технологический и начинает вешать на уши лапшу про то, как у них там в ГигаСофте круто и какие у них программы пишутся.
А ему в ответ:
- Alt+F4!!!

Например вы отключили Ctrl+Alt+Delete, сделали неактивной кнопку закрытия окна, удалили саму команду "Закрыть" в системном меню ("модификация системного меню") - всё это мы уже знаем как делать, но... глупый ламерюга может попросту нажать Alt+F4... вот это у нас ещё не учтено! Так как же запретить закрытие окна?

Делать это будем так: вызываем событие OnCloseQuery для формы и пишем туда два слова!!!

CanClose:=false;

Посмотрите внимательнее на параметры, переданные в вызванном нами событии. Там вы и увидите то самое "CanClose", которое мы использовали. Всё довольно таки легко: если этот параметр установить в false пользователь не сможет закрыть окно, в противном случае - сможет. Ну вот теперь мы добились того, что "ждал от нас юзверь"... так не будем и впредь разочаровывать его!

Кстати, чуть не забыл... даже компьютер нельзя будет выключить, пока не закончит сеанс наша прога!!! Круто!