Предотвращение закрытия формы
|
|
Следующий текст убирает команду закрыть из системного меню и одновременно делает серой кнопку закрыть в заголовке формы: procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU; begin
hMenuHandle := GetSystemMenu(Handle, FALSE); IF (hMenuHandle <> 0) THEN DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end; |