Как заблокировать кнопку "закрыть" в кнопках управления окном?

[hon]

Как заблокировать кнопку "закрыть" в кнопках управления окном?

[3D Hunter]

1. в событии OnClose вашей формы напишите

Action:=caNone;

2. в событии вашей формы OnCloseQuery напишите

CanClose:=False;

чтобы из программы влиять на возможность закрытия, заведите логическую переменную, присвойте ей False при запуске программы и в обработчике кнопки "Закрыть" напишите:

LqBool:=True;
Form1.Close;

а в событии OnCloseQuery напишите:

CanClose:=LqBool;

Все)