Предотвращение закрытия формы

Written on 23 Октября 2007. Posted in [Delphi] Пользовательский интерфейс. Окна и формы

Следующий текст убирает команду закрыть из системного меню и одновременно делает серой кнопку закрыть в заголовке формы:

procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU; begin

hMenuHandle := GetSystemMenu(Handle, FALSE);

IF (hMenuHandle <> 0) THEN

DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

end;