menu contextual

En VFP8 si se puede enlazando el evento Rigth Click de _screen.

Apoya a Visual FoxPro usándolo legalmente
ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox ( http://www.PortalFox.com )
email:
Acapulco, Guerrero. México


David Ponce wrote:

Hola, yo quiero hacer un menú contextual que se active con el rightclick del
mouse, pero no en un formulario, sino que en el objeto _screen, se puede??,
si es asi como se hace??


Gracias anticipadas

David Ponce

Mira Si esto te sirve

(disculpa por el menu, pero lo saque a la carrera de la ayuda de Define
Popup, y el demas codigo lo saque
de http://www.portalfox.com/article.php?sidA4

)

Metelo a un prg, ejecutalo, y dale click derecho al _Screen.

Obj= '_SCREEN'
_Screen.AddObject('HOOK_1', '_GANCHO')

Define Class _GANCHO As Custom
objEvaluado= Eval(OBJETO)
Procedure objEvaluado.Moved
If This.WindowState = 0
If (This.Left < 0) Or (This.Top < 0)
This.AutoCenter=.T.
Endif
Endif
Endproc

Procedure objEvaluado.RightClick
Define Popup popFruits From 5,5 ;
MULTISELECT Margin && Create multi-choice menu
Define Bar 1 Of popFruits ;
PROMPT '\<Apples' Mark Chr(3) && First item
Define Bar 2 Of popFruits ;
PROMPT '\<Bananas' Mark Chr(4) && Second item
Define Bar 3 Of popFruits ;
PROMPT '\<Grapes' Mark Chr(5) && Third item
Define Bar 4 Of popFruits ;
PROMPT '\<Lemons' Mark Chr(6) && Fourth item
@ 12,5 Say 'Your choices:'
On Selection Popup popFruits _Screen.yourchoice && Choice routine
Activate Popup popFruits
Endproc

Procedure objEvaluado.yourchoice && Executed when choice is
made
@ 13,5 Clear
For gnCount = 1 To Cntbar('popFruits') && Loop for # of items
If Mrkbar('popFruits', gnCount) = .T. && Option is marked,
? Prmbar('popFruits', gnCount) At 5 && display caption
Endif
Next
Endproc
Enddefine



Saludos

En Thu, 7 Aug 2003 13:48:02 -0600, David Ponce
escribió:

Hola, yo quiero hacer un menú contextual que se active con el rightclick
del
mouse, pero no en un formulario, sino que en el objeto _screen, se
puede??,
si es asi como se hace??


Gracias anticipadas

David Ponce

Do it Best, do it with VFP

Ya probé tu ejemplo Jorge, pero entonces no puedo usar el menú contextual
hecho con create menu??


David Ponce


"David Ponce" escribió en el mensaje
news:

Hola, yo quiero hacer un menú contextual que se active con el rightclick

del

mouse, pero no en un formulario, sino que en el objeto _screen, se

puede??,

si es asi como se hace??


Gracias anticipadas

David Ponce

si puedes usar ese menu contextual
yo me referia que a manera de ejemplo use el que venia en la ayuda
de vfp.


En Fri, 8 Aug 2003 08:13:31 -0600, David Ponce
escribió:

Ya probé tu ejemplo Jorge, pero entonces no puedo usar el menú contextual
hecho con create menu??


David Ponce


"David Ponce" escribió en el mensaje
news:

Hola, yo quiero hacer un menú contextual que se active con el rightclick

del

mouse, pero no en un formulario, sino que en el objeto _screen, se

puede??,

si es asi como se hace??


Gracias anticipadas

David Ponce

Do it Best, do it with VFP