TOTVSTEC

Árvore de páginas

Cria um objeto do tipo menu.

Hierarquia

Construtores

Métodos

Observações

  • Em builds superiores à 120420A foi implementado o evento de wheel (roda do mouse), permitindo movimentar os itens do componente à partir deste dispositivo.

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  User Function TMenu()  
   DEFINE DIALOG oDlg TITLE "Exemplo TMenu" FROM 180,180 TO 550,700 PIXEL      
   oMenuMain := TMenu():New( 0,0,0,0,.F.,'',oDlg,CLR_WHITE,CLR_BLACK)    
   
   // Adiciona item ao menu principal    
   oMenuDiv := TMenuItem():New2( oMenuMain:Owner(),'Item 001','',,,)    
   oMenuMain:Add( oMenuDiv )                              
   
   // Adiciona sub-Itens                 
   oMenuItem1 := TMenuItem():New2( oMenuMain:Owner(),'Sub-Item 001',,,{||Alert('TMenuItem 1')})    
   oMenuDiv:Add( oMenuItem1 )                              
   oMenuItem2 := TMenuItem():New2( oMenuMain:Owner(),'Sub-Item 002',,,{||Alert('TMenuItem 2')})    
   oMenuDiv:Add( oMenuItem2 )     
   
   ACTIVATE DIALOG oDlg CENTERED 
  Return

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

  • Sem rótulos