ocupo aser un menu colgante
A lo que te refieres a los menú Contextual o Popup.
Puedes hacer ya sea a trevés del diseñador de menú del IDE o pelo a pelo.
Yo en lo particular a este timpo de menú los diseño pelo a pelo. Por ejemplo:
Local nOpción
nOpción = 0
DEFINE POPUP menúcontex ;
SHORTCUT ;
RELATIVE ;
FROM MRow(), MCol() ;
Title "..:: RÁPIDO ::.." ;
Footer "ESC = Cancela el menú"
DEFINE BAR 1 OF menúcontex PROMPT "Modo Infinito <Prueba>"
DEFINE BAR 2 OF menúcontex PROMPT "Cerrar Sesión"
DEFINE BAR 3 OF menúcontex PROMPT "<Gris Claro"
ON SELECTION BAR 1 OF menúcontex nOpción = 1
ON SELECTION BAR 2 OF menúcontex nOpción = 2
ON SELECTION BAR 3 OF menúcontex nOpción = 3
ACTIVATE POPUP menúcontex
Do Case
Case nOpción = 1
Case nOpción = 2
Case nOpción = 3
EndCase
*-----------
este código colocalo en algún evento Clic o Rightclic de algun control y serciorate si es lo que querías.
Saludos
Ken Torrealba
El Callao - Venezuela
Puedes hacer ya sea a trevés del diseñador de menú del IDE o pelo a pelo.
Yo en lo particular a este timpo de menú los diseño pelo a pelo. Por ejemplo:
Local nOpción
nOpción = 0
DEFINE POPUP menúcontex ;
SHORTCUT ;
RELATIVE ;
FROM MRow(), MCol() ;
Title "..:: RÁPIDO ::.." ;
Footer "ESC = Cancela el menú"
DEFINE BAR 1 OF menúcontex PROMPT "Modo Infinito <Prueba>"
DEFINE BAR 2 OF menúcontex PROMPT "Cerrar Sesión"
DEFINE BAR 3 OF menúcontex PROMPT "<Gris Claro"
ON SELECTION BAR 1 OF menúcontex nOpción = 1
ON SELECTION BAR 2 OF menúcontex nOpción = 2
ON SELECTION BAR 3 OF menúcontex nOpción = 3
ACTIVATE POPUP menúcontex
Do Case
Case nOpción = 1
Case nOpción = 2
Case nOpción = 3
EndCase
*-----------
este código colocalo en algún evento Clic o Rightclic de algun control y serciorate si es lo que querías.
Saludos
Ken Torrealba
El Callao - Venezuela
