Советы по Delphi

         

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


Igor Nikolaev aKa The Sprite советует:

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

    procedure TForm1.FormCreate(Sender: TObject);
var hMenuHandle:HMENU; begin
hMenuHandle := GetSystemMenu(Handle, FALSE); IF (hMenuHandle <> 0) THEN DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;

[001399]



Содержание раздела