procedure Tframe1.panBorderEndDock(Sender, Target: TObject; X, Y: Integer); var hMenuHandle : Integer; begin inherited; hMenuHandle := GetSystemMenu(panBorder.Handle, False); if (hMenuHandle <> 0) then DeleteMenu(hMenuHandle , SC_CLOSE, MF_BYCOMMAND); end;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)