sygecom escreveu:" mandei pro seu email um exemplo simples" !!!
Código: Selecionar todos
CriarMenu( @hMenu, @hMenuItem, @hSubMenuItem )
// Por acaso é aqui que chamo uma função para questionar o retorno ???
return nil
***********************************************************
STATIC FUNCTION CriarMenu( hMenu, hMenuItem, hSubMenuItem )
***********************************************************
CREATEMENU hMenu
MENUITEM hMenuItem OF hMenu PROMPT "~Cadastros"
SUBMENUITEM hMenuItem PROMPT "~Empresas" ACTION OPCAO_1 FLAGS ( MF_ENABLED + MF_STRING )
SUBMENUITEM hMenuItem PROMPT "~Lançamentos" ACTION OPCAO_2 FLAGS ( MF_ENABLED + MF_STRING )
SUBMENUITEM hMenuItem PROMPT "~Detalhes do Saldo" ACTION OPCAO_5 FLAGS ( MF_ENABLED + MF_STRING )
MENUITEM hMenuItem OF hMenu PROMPT "~Relatórios"
SUBMENUITEM hMenuItem PROMPT "~Lançamentos" ACTION OPCAO_3 FLAGS ( MF_ENABLED + MF_STRING )
MENUITEM hMenuItem OF hMenu PROMPT "~Manutençãao"
SUBMENUITEM hMenuItem PROMPT "~Configurações" ACTION OPCAO_4 FLAGS ( MF_ENABLED + MF_STRING )
MENUITEM hMenuItem OF hMenu PROMPT "~Sair"
SUBMENUITEM hMenuItem PROMPT "~Sair" ACTION OPCAO_S FLAGS ( MF_ENABLED + MF_STRING )
\\ caso coloque um inkey(0) aqui consigo selecionar um item de menu
\\ mas acho que esse não é o caminho !! :(
WVW_SetMenu(, hMenu )
RETURN NIL
***********************************************************
FUNCTION MenuChecker( nMenuEvent )
***********************************************************
\\ Onde voce chama esta função no seu exemplo ??
local nkey := 0
do case
case nMenuEvent == OPCAO_1
// CadEmpresa()
case nMenuEvent == OPCAO_2
//if SelEmpresa()
// CadLanca()
// endif
case nMenuEvent == OPCAO_3
// Relatorio()
case nMenuEvent == OPCAO_5
// CadSaldo()
case nMenuEvent == OPCAO_4
// Alerta("Em Construção")
case nMenuEvent == OPCAO_S .or. nMenuEvent == SAIR_GENERICO .or. nMenuEvent == BT_SAIR
nkey := K_ESC
otherwise
// Alerta("Em Construção")
endcase
RETURN nkey
***********************************************************
