Mega Code Archive

 

Categories / Delphi / Forms

 

Disable the Close [X] button on a Form

Title: 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;