Code:procedure TFMain.FormCreate(Sender: TObject); var hMenuHandle: Integer; begin hMenuHandle := GetSystemMenu(Handle, False); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); end;
Results 1 to 1 of 1
Thread: [DELPHI] - Disable Close Button
|
Click Here to Expand Forum to Full Width |