Estoy migrando una aplicación desde Fox DOS a VFP.

Los prg de FD tienen docenas de on key labels que responden a distintas combinaciones de teclas sobre ventanas browse.

Yo reemplacé todos los browse con grids y los on key labels con el keypress event de cada textbox en cada una de las columnas que lo necesitan

lparameters nKeyCode,nShiftAltCtrl

if nKeyCode = 4    && ctrl+D
   do form borrar
endif

Pero cuando se navega la grid, con la tecla flecha derecha, que tiene el mismo número 4 que el ctrl+D (ver función inkey() en la ayuda), me lanza el form borrar, en lugar de navegar hacia la derecha.

El número 4 corresponde a la flecha derecha en la primera columna de la función y a ctrl+D en la tercera.

Nunca usé el parámetro nShiftAltCtrl, asi que no puedo resolver el problema.

Quiero que usen ctrl+D para lanzar el form borrar (requerimiento del cliente) y que naveguen a la derecha con la flecha correspondiente.

¿cómo hago?

Rafael Copquin



Responder a