Exemplo de Menu

#include 'protheus.ch'

User Function 30TMenu()
Local oDlg

DEFINE MSDIALOG oDlg FROM 0,0 TO 304,504 PIXEL TITLE 'Exemplo'
oMenu := TMenu():New( 0,0,0,0,.F.,'',oDlg,CLR_WHITE,CLR_BLACK)
// Adiciona Item ao Menu Principal
oMenuItem1 := TMenuItem():New2( oMenu:Owner(),'Item 001','Item 001',,,)
oMenu:Add( oMenuItem1 )

// Adiciona sub-Itens
oMenuItem2 := TMenuItem():New2( oMenu:Owner(),'Sub-Item 001',,,{||Alert('TMenuItem')})
oMenuItem3 := TMenuItem():New2( oMenu:Owner(),'Sub-Item 002',,,{||Alert('TMenuItem')})
oMenuItem4 := TMenuItem():New2( oMenu:Owner(),'Sub-Item 003',,,{||u_10BrGet()})
oMenuItem1:Add( oMenuItem2 )
oMenuItem1:Add( oMenuItem3 )
oMenuItem1:Add( oMenuItem4 )

ACTIVATE MSDIALOG oDlg CENTERED
Return NIL