Saludos:
Una forma de hacerlo:
WITH OBJECT ::oMenu1 := TMenu():New( Self )
:nStyle := msOFFICEXP
:Create()
WITH OBJECT :AddItem( "&Ficheros" )
WITH OBJECT :AddMenu()
::oImportEnceste := :AddItem( "Importar Enceste" )
::oImportResultados := :AddItem( "Importar Resultados" )
:AddSeparator()
::oExportEnceste := :AddItem( "Exportar Enceste" )
::oExportResultados := :AddItem( "Exportar Resultados" )
END
END
WITH OBJECT :AddItem( "&Listados" )
WITH OBJECT :AddMenu()
WITH OBJECT ::oListEnceste := :AddItem( "Listado de Enceste" )
:OnClick := "ListEncesteClick"
END
WITH OBJECT ::oListResultados := :AddItem( "Listado de
Resultados" )
:OnClick := "ListResultadosClick"
END
END
END
:AddItem( "&Salir","Cerrar el formulario y salir." ):OnClick := {||
::oForm:Close() }
:SetMenu()
END
Otra forma de hacerlo:
METHOD InicializaForm( oSender ) CLASS TForm
Local oMenu
Menu oMenu
oMenu:nStyle := msOFFICEXP
MenuItem "0"
Menu
MenuItem "aaaa"
MenuItem "bbbb"
EndMenu
MenuItem "1"
Menu
EndMenu
MenuItem "2"
Menu
EndMenu
ENDMENU
::oMenu := oMenu
RETURN Nil
José Ramón Castro.
"claudio" <
santos@transbank.com.br> escribió en el mensaje de noticias
news:[email=
48fe02c3@ozsrv2.ozlan.local...]
48fe02c3@ozsrv2.ozlan.local...[/email]
>O que é que estoo fazendo de errado, preciso montar Via Códigos um Menu
>estilio XP,
>
> MENU ::oMenu
> MenuItem "0"
> Menu
> MenuItem "aaaa"
> MenuItem "bbbb"
> EndMenu
> MenuItem "1"
> Menu
> EndMenu
> MenuItem "2"
> Menu
> EndMenu
> ENDMENU
> ::oMenu:nStyle := msOFFICEXP
> ::oMenu := TMenu():Create( Self, .t. )
>
>