by Alvaro Urdaneta » Tue Jun 26, 2007 9:31 pm
Leonel,
Yo lo hago asi:
FUNCTION MiFuncion()
LOCAL oMenu, nRow, nCol, aPos := GetCursorPos()
nRow := aPos[1]
nCol := aPos[2]
MENU oMenu POPUP
MENUITEM OemToAnsi( "Opcion 1" ) ACTION Funcion1()
MENUITEM OemToAnsi( "Opcion 2" ) ACTION Funcion2()
ENDMENU
ACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd
oMainWnd:Refresh()
RETURN NIL
Saludos
Alvaro Urdaneta
Fwh 10.8, xharbour1.2.1, bcc582, Brw45