Bom dia
Tem algum jeito de apagar o Main Menu de um Form.
Com outro controle vi que basta um
Form.Nome_Controle.Release
Mas qual seria o Nome_Controle de um Main Menu ?
Obrigado
Rubens

Moderador: Moderadores
Proc ApagarMenu()
DEFINE MAIN MENU OF Nome_Form
END MENU
Return
RELEASE MAIN MENU OF <parent>
RELEASE MAINMENU OF <parent>
RELEASE CONTEXT MENU OF <parent>
RELEASE CONTEXTMENU OF <parent>
RELEASE NOTIFY MENU OF <parent>
RELEASE NOTIFYMENU OF <parent>
RELEASE DROPDOWN MENU BUTTON <button> OF <parent>
RELEASE DROPDOWNMENU OWNERBUTTON <button> OF <parent>
Claudio Soto escreveu:No se si existe en MiniGUI Extended.
#xcommand RELEASE MAIN MENU OF <form> => DEFINE MAIN MENU OF <form> ; END MENU ; DestroyMenu( GetMenu( GetFormHandle( <"form"> ) ) )
#xcommand RELEASE CONTEXT MENU OF <form> => DEFINE CONTEXT MENU OF <form> ; END MENU ; DestroyMenu( _HMG_aFormContextMenuHandle \[ GetFormIndex ( <"form"> ) ] )
#xcommand RELEASE NOTIFY MENU OF <form> => DEFINE NOTIFY MENU OF <form> ; END MENU ; DestroyMenu( _HMG_aFormNotifyMenuHandle \[ GetFormIndex ( <"form"> ) ] )
#xcommand RELEASE DROPDOWN MENU BUTTON <button> OF <form> => DEFINE DROPDOWN MENU BUTTON <button> OF <form> ; END MENU
#xcommand RELEASE DROPDOWNMENU OWNERBUTTON <button> OF <form> => DEFINE DROPDOWN MENU BUTTON <button> OF <form> ; END MENU
FUNCTION APAGAMENU()
RELEASE MAIN MENU OF DATASAC
SetProperty('DATASAC','BTN_002','ENABLED',.F.)
SetProperty('DATASAC','BTN_004','ENABLED',.F.)
NIVEL='1'
MONTAMENU()
RETURN NIL
vou tentar experimenta essa solucao pra ve se eh o q to querenorubens escreveu:RELEASE MAIN MENU OF DATASAC
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes