TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 1 minuto

Define o objeto do tipo TMenu referente ao botão.

Sintaxe

SetPopupMenu( < oMenu > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oMenu

objeto

Indica o objeto do tipo TMenu que será apresentado quando clicar, com o botão esquerdo do mouse, sobre o objeto.

X

 

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  User Function TButtonPopup()
  DEFINE DIALOG oDlg TITLE "Exemplo TButton:SetPopupMenu" FROM 180,180 TO 550,700 PIXEL
  // Cria Menu    
  oMenu := TMenu():New(0,0,0,0,.T.)    
  // Adiciona itens no Menu    
  oTMenuIte1 := TMenuItem():New(oDlg,"TMenuItem 01",,,,{||Alert("TMenuItem 01")},,,,,,,,,.T.)
  oTMenuIte2 := TMenuItem():New(oDlg,"TMenuItem 02",,,,{||Alert("TMenuItem 02")} ,,,,,,,,,.T.)
  oTMenuIte3 := TMenuItem():New(oDlg,"TMenuItem 03",,,,{||Alert("TMenuItem 03")} ,,,,,,,,,.T.)
  oMenu:Add(oTMenuIte1)
  oMenu:Add(oTMenuIte2)
  oMenu:Add(oTMenuIte3)
  // Cria botão que sera usado no Menu
  oTButton1 := TButton():New( 002, 002, "Botão 01",oDlg,{||alert("Botão 01")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  // Define botão no Menu
  oTButton1:SetPopupMenu(oMenu)
  ACTIVATE DIALOG oDlg CENTERED 
  Return

Resultado do Exemplo

  • Sem rótulos