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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

А ему в ответ:

— Alt F4!!!

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

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

CanClose:=false;

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

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

{/codecitation}

Добавить комментарий