Mega Code Archive

 

Categories / Delphi / Forms

 

How to Disable the Close [X] button on a Form

Title: How to Disable the Close [X] button on a Form procedure TFMain.FormCreate(Sender: TObject); var hMenuHandle: Integer; begin hMenuHandle := GetSystemMenu(Handle, False); if (hMenuHandle 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;