Cargar opciones de TMenu
Publicado: Mar Abr 22, 2008 6:41 pm
Utilizo el Método FormShow() para mostrar a través de un MsgInfo() las
opciones del menú del ejemplo anexo MENU.JPG, sin embargo solo me muestra
las opciones del menu horizontal que son:
Archivo
Edición
Ver
METHOD FormShow( oSender ) CLASS Menu
Local l_oItem := ::oMenu1:aItems
Local l_nItr := 1
Local l_cItem := ''
For l_nItr := 1 to Len(l_oItem)
l_cItem := l_oItem[l_nItr]:cText
MsgInfo(l_cItem)
Next
RETURN NIL
La duda es:
Como hacerle para mostrar con el MsgInfo() las opciones que pertenecen a
Archivo que son:
Nuevo
Abrir
Salir
Saludos:
Ing. Guillermo Guevara Carrillo
Attached files
opciones del menú del ejemplo anexo MENU.JPG, sin embargo solo me muestra
las opciones del menu horizontal que son:
Archivo
Edición
Ver
METHOD FormShow( oSender ) CLASS Menu
Local l_oItem := ::oMenu1:aItems
Local l_nItr := 1
Local l_cItem := ''
For l_nItr := 1 to Len(l_oItem)
l_cItem := l_oItem[l_nItr]:cText
MsgInfo(l_cItem)
Next
RETURN NIL
La duda es:
Como hacerle para mostrar con el MsgInfo() las opciones que pertenecen a
Archivo que son:
Nuevo
Abrir
Salir
Saludos:
Ing. Guillermo Guevara Carrillo
Attached files