[Sintaxis] Teclas de desplazamiento

[Josber]

¿Hay alguna manera de 'detectar' las teclas de desplazamiento, (arriba, abajo, derecha, izquierda)?, porque dentro de un control, en el evento KeyPress, he puesto el código adjunto pero, pasa de mi ..

 
     EVALUATE POW-ARG-KEYASCII
              WHEN POW-KEY-DOWN
                    DISPLAY "ABAJO"
              WHEN POW-KEY-UP
                    DISPLAY "ARRIBA"
     END-EVALUATE.

Mil gracias.-

[Kuk]

@Josber, tienes que pasar por el evento PreKeyDown del propio Form

[Josber]

❞ tienes que pasar por el evento PreKeyDown del propio Form

Esa solución ya me la imaginaba pero, el control de las teclas, lo quiero tener en uin componente en especial, (componente SPREAD, parecido al ListView), no en el form en general

Saludos.-

[Kuk]

@Josber, en el evento indicado debes añadir un control del componente activo.

Ejemplo PreKeyDown:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-ARG-KEYCODE PIC S9(4) COMP-5.
 01  POW-ARG-SHIFT   PIC S9(4) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-KEYCODE POW-ARG-SHIFT.
     
     IF  "ActiveControl" OF POW-SELF = CmText1
         EVALUATE POW-ARG-KEYCODE
 
             WHEN POW-KEY-UP
                 DISPLAY "Arriba"
             
             WHEN POW-KEY-DOWN
                 DISPLAY "Abajo"
                 
             WHEN POW-KEY-LEFT
                 DISPLAY "Izquierda"
                 
             WHEN POW-KEY-RIGHT
                 DISPLAY "Derecha"
             
         END-EVALUATE
     END-IF

[Begoguay]

Hola.

Yo lo hago en el evento KeyUp del control, en lugar de en el evento PreKeyDown del formulario y me funciona perfectamente.

Un saludo.

[Josber]

❞ Yo lo hago en el evento KeyUp del control

¿Y te funciona con las teclas del cursor (Arriba, Abajo, Derecha ...)?, porque a mi no me funciona con esas teclas.

Un saludo.-

[Begoguay]

❞ ¿Y te funciona con las teclas del cursor (Arriba, Abajo, Derecha ...)?, porque a mi no me funciona con esas teclas.

Pues yo lo pruebo en el control Table, y si lo hago en el KeyDown, no me hace lo que yo quiero, pero con el KeyUp si.