Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Right Click Event
Message
 
To
04/07/2003 13:13:30
Luis Navas
Independent Consultant
Auckland, New Zealand
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00799837
Message ID:
00807043
Views:
22
If you call the menu from the object:
nRow =(wrows()/thisform.height) *(OBJTOCLIENT(this, 1)+this.height)
nCol = (WCOLS()/thisform.width) *(OBJTOCLIENT(this, 2)+10) 
This code give you a point placed at the bottom of the control and 10 pixels to the left side of the control.


>>>>>Just wondering. I have in all my controls a emergent menu that activates when the user right click on it. But when i use the KEY for that menus in those keyboards that has this special KEY, i only get this caracter Ÿ. I now that the VFP objects are created by VFP it self. But if you use this KEY in other programs, inclusive in VFP it self you will get the shortcut menu associated with the control. Is there anyway to cath this KEY to show the menu?
>>>>>Thanks.
>>>>>
>>>>>Luis Navas
>>>>
>>>>Do you mean this ?
>>>>
>>>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>>>If nKeyCode = 93 and nShiftAltCtrl = 1
>>>> NoDefault
>>>> *do myShcut with this
>>>>endif
>>>>
Cetin
>>>
>>>Yes Cetin, thanks, but this will put the menu at the coordinates of the mouse, 'cause the menu generator does this, so i changed the menu to receive some parameters as coordenates, but how can i get the coordenates of the object that calls the menu?
>>>
>>>Luis
>>
>>Luis,
>>Sorry couldn't understand what's the difference between " of the object that calls the menu " and the object passed to menu.
>>
>>do myShcut with this
>>
>>*myShCut.mpr
>>lparameters toObject
>>lnTop=objtoclient(toObject,1)
>>...
>>
>>Cetin
>The problem that i see is:
>If i call the menu like this:
>
>>>>
>>>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>>>If nKeyCode = 93 and nShiftAltCtrl = 1
>>>> NoDefault
>>>> *do myShcut with this
>>>>endif
>>>>
Cetin
>
>It will show the menu at mouse pointer position, and i wan't to showw the menu at the position of the textbox for example.
>Luis
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...


Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform