menús boton derecho
Buenas.
Me gustaria saber como puedo hacer que en un combo o un textbox al pulsar el botón derecho me salga un menú para agregar nuevas entradas en una tabla.
Muchas gracias.
Me gustaria saber como puedo hacer que en un combo o un textbox al pulsar el botón derecho me salga un menú para agregar nuevas entradas en una tabla.
Muchas gracias.
En el evento RighClictEvent del textbox activa el menú:
ACTIVATE POPUP mPoPup AT mrow(),mcol()
y en el load del formulario crea el menú
DEFINE POPUP mPoPup SHORTCUT RELATIVE
DEFINE BAR _med_cut OF mPoPup PROMPT "Cor<tar" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "Cortar el texto al portapapeles"
DEFINE BAR _med_copy OF mPoPup PROMPT "<Copiar" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "Copia el texto al portapapeles"
DEFINE BAR _med_paste OF mPoPup PROMPT "<Pegar" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "Pega el texto al cortapapeles"
DEFINE BAR _med_slcta OF mPoPup PROMPT "Se<lecciona Todo" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "Selecciona todo el texto"
En este caso es un menú para Copiar/Cortar/Pegar, pero si quieres hacer otra cosa es bien sencillo prográmatelo en la opción deseada.
Salu2
ACTIVATE POPUP mPoPup AT mrow(),mcol()
y en el load del formulario crea el menú
DEFINE POPUP mPoPup SHORTCUT RELATIVE
DEFINE BAR _med_cut OF mPoPup PROMPT "Cor<tar" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "Cortar el texto al portapapeles"
DEFINE BAR _med_copy OF mPoPup PROMPT "<Copiar" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "Copia el texto al portapapeles"
DEFINE BAR _med_paste OF mPoPup PROMPT "<Pegar" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "Pega el texto al cortapapeles"
DEFINE BAR _med_slcta OF mPoPup PROMPT "Se<lecciona Todo" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "Selecciona todo el texto"
En este caso es un menú para Copiar/Cortar/Pegar, pero si quieres hacer otra cosa es bien sencillo prográmatelo en la opción deseada.
Salu2
