@Josber, en el evento indicado debes añadir un control del componente activo.
Ejemplo
PreKeyDown:
Código COBOL:
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