No hay respuestas en este tema

[sir.dev.a.lot]

[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!