¿Es posible poner un menú Popup con un Rebar?
Posted: Tue Jun 26, 2007 5:47 pm
Amigos, necesito poner un menú con Rebar, y me arroja error, si alguien sabe como agregarlo, se lo agradeceré.
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