Consultor Eletrônico



Kbase P120527: How to trap keys on the numeric keypad?
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   17/11/2006
Status: Unverified

GOAL:

How to trap keys on the numeric keypad?

GOAL:

How to capture events triggered by the numeric keypad?

GOAL:

How to capture the CTRL+1 shortcut on the numeric keypad?

GOAL:

How to trap the cursor movement keys?

FIX:

There is no direct way to write a trigger to capture the CTRL+1 on the numeric keypad. But you can create a non persistent trigger on ANY-KEY to capture these key events.

So in the Main block of the desired code you co do the following:


ON 'ANY-KEY':U ANYWHERE
DO:
IF LAST-EVENT:CODE = 2145 THEN
/* Capture the CTRL+1 event from the numeric key pad */
/* Perform some processing */
ELSE
DO:
/* Capture Cursor left and Cursor right */
IF LAST-EVENT:CODE = 504 OR LAST-EVENT:CODE = 503 THEN
DO:
/* Perform some processing */
APPLY LASTKEY.
END.
END.
END.