[TRUCO DELPHI] Remover elementos del menu del Sistema.
Declaracion Privada
delphi
private procedure WMInitMenuPopup(var MSG: TWMInitMenuPopup); message WM_INITMENUPOPUP;
Procedimiento
delphi
procedure TOptionsForm.WMInitMenuPopup(var MSG: TWMInitMenuPopup); begin inherited; if Msg.SystemMenu then begin DeleteMenu(msg.MenuPopUp, SC_SIZE, MF_BYCOMMAND); DeleteMenu(msg.MenuPopUp, SC_MAXIMIZE, MF_BYCOMMAND); DeleteMenu(msg.MenuPopUp, SC_MINIMIZE, MF_BYCOMMAND); DeleteMenu(msg.MenuPopUp, SC_RESTORE, MF_BYCOMMAND); DeleteMenu(msg.MenuPopup, 0, MF_BYCOMMAND); end; end;
Saludos!