Define um menu do tipo popup.

Sintaxe

SetPopup( < oMenu > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

oMenu

objeto

Objeto do tipo TMenu.

X

 

Exemplos

  oMenu := TMenu():New(0,0,0,0,.T.)
  oTMenuIte1 := TMenuItem():New(oDlg,"TMenuItem 01",,,,{|| conout("TMenuItem 01") },,,,,,,,,.T.)
  oTMenuIte2 := TMenuItem():New(oDlg,"TMenuItem 02",,,,{|| conout("TMenuItem 02") },,,,,,,,,.T.)
  oTMenuIte3 := TMenuItem():New(oDlg,"TMenuItem 03",,,,{|| conout("TMenuItem 03") },,,,,,,,,.T.)
  oMenu:Add(oTMenuIte1)
  oMenu:Add(oTMenuIte2)
  oMenu:Add(oTMenuIte3)
  oScr:SetPopup(oMenu)

Abrangência

Este método estará disponível em versões superiores à 120420A.