FiveTech Software tech support forums

       oBrow:bRClicked := { | nRow, nCol | ARTICULO1CLICKRIGHT(oDlg,oBrow,nRow,nCol) }


FUNCTION ARTICULO1CLICKRIGHT(oDlg,oBrow,nRow,nCol)
    Local oMenu
    DEFAULT nRow := 0, nCol := oBrow:nColAct
    MENU oMenu POPUP 2007
           MENUITEM "Movimientos...."      ACTION ..... lo que ejecuta
           MENUITEM "Imprimir...."            ACTION
           MENUITEM "Salir del Catalogo"   ACTION                                            
    ENDMENU
    ACTIVATE POPUP oMenu AT nRow - 5, nCol of oBrow
RETURN .T.


 

               :bRClicked := { | nRow, nCol | MyPopMenu(oBrw,oBrw:nRowSel,oBrw:nColSel) }

STATIC FUNCTION MyPopMenu(oBrw,nRow,nCol)
   LOCAL oMenu

   MENU oMenu POPUP 2007
      MENUITEM "Registrar" ACTION MsgInfo("Registrar")
      SEPARATOR
      MENUITEM "Eliminar"  ACTION MsgInfo("Eliminar")
      SEPARATOR
      MENUITEM "Salir"     ACTION oMenu:END( )
   ENDMENU

   ACTIVATE POPUP oMenu AT nRow , nCol OF oBrw
RETURN(.T.)

Y funciona, me muestra el menú pero siempre lo muestra en la esquina superior izquierda del BROWSE
me gustaría que aparezca abajo del renglón y columna en la que el usuario da el clic y que solo ciertas
columnas tengan la posibilidad de crear el menú, ahora en cualquier parte del Browse que se da el clic
el menú se activa.

Saludos