Histórico da Página

Nome	Tipo	Descrição	Obrigatório	Referência
cTitulo	Array of Record	Indica o título do item no menu superior.
oMenu	Objeto	Indica o objeto do tipo TMenu que será executado na solicitação do menu superior.
lMenu	Lógico	Indica se, verdadeiro (.T.), o item incluído será um item de menu; caso contrário, falso (.F.)

Observações

Exemplos

oTMenu := TMenu():New(0,0,0,0,.T.,,oDlg)
TMenuBar:AddItem('Arquivo', oTMenu, .T.)

Veja Também

TMenu

AddMenuItem

Inclui um novo item ao menu da barra superior.

Sintaxe

TMenuBar(): AddMenuItem ( [ cTitulo], [ oMenu] ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cTitulo	Caracter	Indica o título do item no menu superior.
oMenu	Objeto	Indica o objeto do tipo TMenu utilizado para incluir um menu.

Observações

Exemplos

// Cria objeto TMenu
oTMenu3 := TMenu():New(0,0,0,0,.T.,,oDlg)
oTMenuItem3 := TMenuItem():New(oDlg,'TMenuItem 03',,,, {||Alert('TMenuItem 03')},,,,,,,,,.T.)
oTMenu3:Add(oTMenuItem3)
// Adiciona menu na barra superior
oTMenuBar:AddMenuItem( "Novo Item",oTMenu3 )

Preview

Inclusão de trecho

	Classe TMenuBar - Construtores
	Classe TMenuBar - Construtores
nopanel	true

Métodos

Inclusão de trecho

	Classe TMenuBar - Métodos
	Classe TMenuBar - Métodos
nopanel	true

Observações

Exemplo do método AddMenuItem

Image Removed

Reset

Exclui todas as opções do menu.

Sintaxe

TMenuBar(): Reset ( ) -->

Observações

Exemplos

oTMenuBar:reset()

SetDefaultUp

Direciona o menu para cima.

Sintaxe

TMenuBar(): SetDefaultUp ( [ isDefUp] ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
isDefUp	Lógico	Indica se habilita (.T.)/desabilita(.F.) a apresentação do menu para cima.

Observações

Exemplos

oTMenuBar:SetDefaultUp( .T. )

Preview

Exemplo do método SetDefaultUp

Image Removed

Observações

A classe "TMenuBar" já é criada com o alinhamento "CONTROL_ALIGN_TOP". Quando utilizada com a classe "TWindow" a redundacia deste alinhamento retira o Objeto da area de Menu (Será apresentada uma area em branco acima do menu).

Exemplos

Bloco de código

language	cpp
theme	Eclipse
title	Exemplo 1
linenumbers	true
collapse	false

  #include "TOTVS.CH"


    User Function TMenuBar()



    oWindow:= TWindow():New(10, 10, 800, 600, 'Exemplo TWindow',,,,,,,,

;

CLR_BLACK,CLR_WHITE,,,,,,,.T.)

)

   // Monta um Menu Suspenso


    oTMenuBar := TMenuBar():New(oWindow)

  oTMenu1 := TMenu():New(0,0,0,0,.T.,,oWindow)


    oTMenu2 := TMenu():New(0,0,0,0,.T.,,oWindow)


    oTMenuBar:AddItem('Arquivo'  , oTMenu1, .T.)


    oTMenuBar:AddItem('Relatorio', oTMenu2, .T.)


    // Cria Itens do Menu


    oTMenuItem := TMenuItem():New(oWindow,'TMenuItem 01',,,,{||Alert('TMenuItem 01')},,'AVGLBPAR1',,,,,,,.T.)

  oTMenu1:Add(oTMenuItem)

   oTMenu2:Add(oTMenuItem)



    oTMenuItem := TMenuItem():New(oWindow,'TMenuItem 02',,,,{||Alert('TMenuItem 02')},,,,,,,,,.T.)


    oTMenu1:Add(oTMenuItem)

   oTMenu2:Add(oTMenuItem)



    oWindow:Activate('MAXIMIZED')


  Return

Preview

Exemplo da classe TMenuBar

Resultado do Exemplo

Image Modified

Abrangência

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

...

Árvore de páginas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave

Hierarquia

Construtores

New

Método construtor da classe.

AddItem

Inclui um novo item ao menu.

AddMenuItem

Inclui um novo item ao menu da barra superior.

Métodos

Observações

Reset

Exclui todas as opções do menu.

SetDefaultUp

Direciona o menu para cima.

Exemplos

Resultado do Exemplo

Abrangência