FoxPro/Visual FoxPro - evento right click

saludos amigos.
soy un estudiante con muchos deseos de aprender en foxpro
nesesito saber como hago para que el evento right click de una grid,
nos muestre varias opciones aplicables a un campo o registro seleccionado ej: agregar o eliminar .
de ante mano gracias espero sea de gran ayuda su respuesta

Hola Jhonatan:

Tienes que crear un menu contextual con las opciones que quieres.

Luego en el Evento RightClick pones la siguiente linea para llamar al menu:

Do MiMenuContextual.mpr

Prueba y me cuentas.

Saludos

OJO ....

Si tienes un grid, y seleccionas una fila que no contenga algun registro, se ejecuta el evento RightClick del Grid, pero -..- pero.. peroooo

Si estas sobre un registro del grrid, se ejecuta el evento RightClick del Control de la columna del Grid, en la mayoria de los casos.. Text1.RighClick.

Para evitar el mismo codigo en cada control de cada columna, puedes poner el codigo solo en el evento RighClick del Grid, y lo llamas desde cada columna.

Column1.Text1.RightClick
-----------------------------------
This.Parent.Parent.RightClick()

Saludos.

APS

Mi estimado amigo, disculpas por todo el tiempo transcurido desde tu pregunta, pero por otro motivo entré al foro a consultar por otro tema. Lo que más me resultó fue agregar al init de la grid lo siguiente:
If !DoDefault()
RETURN .F.
EndIF
Local loColumn, loControl
For Each loColumn In This.Columns
lVisible=.T.
For Each loControl In loColumn.Controls
loColumn.Visible=lVisible
If loControl.BaseClass = "Header"
* Habilita todos los controles
Bindevent( loControl, "Click", This, "Click" )
Bindevent( loControl, "DblClick", This, "DblClick" )
Bindevent( loControl, "RightClick", This, "RightClick" )
Else
* Habilita resto de los controles
Bindevent( loControl, "Click", This, "Click" )
Bindevent( loControl, "DblClick", This, "DblClick" )
Bindevent( loControl, "RightClick", This, "RightClick" )
Endif
Next
For Each loControl In loColumn.Controls
If Upper(loControl.BaseClass) = "TEXTBOX"
loControl.FontName = "Arial"
loControl.FontSize = 9
Endif
Next
Next
Bendiciones