FoxPro/Visual FoxPro - Crear un menu

Hola a todos, Haber les comento, tengo una grilla en un formulario y deseo que al pulsar click derecho del mouse se despliegue un menú con las opciones que necesite, la pregunta es, como creo el menu, se que se usa el create menu, pero como se utiliza?, si alguien me puede colaborar escribiendo con un ejemplo como lo hago o enviandome un link donde pueda consultar, se lo agradezco, gracias......

Revisa este enlace creo que es lo que buscas

http://www.portalfox.com/modules.php?op=modload&name=Sections&file=index&req=viewarticle&artid=54


Suerte

lo que necesitas es un menu de contextura ve el ejemplo que "newmenu.scr" que esta en el directorio:

Samples\Solution\Ffc de foxpro

Que es esto no??

<font color="Blue">DEFINE CLASS _Dataenvironment AS dataenvironment
Left = 251
Top = 242
Width = 520
Height = 200

<font color="Blue">ENDDEFINE

<font color="Blue">DEFINE CLASS Frmsolution1_oMenu AS _shortcutmenu OF ..\..\..\ffc\_menu.vcx
Top = 120
Left = 84

PROCEDURE setmenu
LPARAMETERS toobject
LOCAL oMenu2
oMenu2= THIS.NewMenu()
WITH oMenu2
.AddMenuBar("AAA","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("BBB","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("CCC","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("DDD","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("EEE","oTHISForm.HandleMenu(POPUP(),BAR())")
ENDWITH

WITH THIS
.AddMenuBar("XXX","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuSeparator()
.AddMenuBar("YYY",oMenu2)
.AddMenuBar("ZZZ","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("QQQ","oTHISForm.HandleMenu(POPUP(),BAR())")
.AddMenuBar("PPP","oTHISForm.HandleMenu(POPUP(),BAR())",,,.T.)
.AddMenuBar("WWW","oTHISForm.HandleMenu(POPUP(),BAR())",,,,.T.)
.AddMenuBar("GGG","oTHISForm.HandleMenu(POPUP(),BAR())",,,,,.T.)
ENDWITH

ENDPROC
PROCEDURE Init
DODEFAULT()
this.SetMenu()

ENDPROC

<font color="Blue">ENDDEFINE

<font color="Blue">DEFINE CLASS _Frmsolution1 AS frmsolution OF ..\solution.vcx
ADD OBJECT Dataenvironment AS _Dataenvironment
ADD OBJECT oMenu AS Frmsolution1_oMenu
Height = 158
Width = 337
Caption = "Add Shortcut Menus to Objects"
HelpContextID = 1231611

PROCEDURE handlemenu
#DEFINE SELECT_LOC "You selected :"
LPARAMETER tcPopup,tnBar
WAIT WINDOW SELECT_LOC+PRMBAR(tcPopup,tnBar) TIMEOUT 1
ENDPROC
PROCEDURE RightClick
PRIVATE oTHISForm
oTHISForm=THIS
THIS.oMenu.ShowMenu()

ENDPROC

<font color="Blue">ENDDEFINE


Suerte

Correcto ...!