ENTRY OnKeyPress(IN INT _VKCode, IN BOOL _bCtrl, IN BOOL _bShift, IN BOOL _bAlt) ; akcie END OnKeyPress |
| _VKCode | Kód stlačenej klávesy. |
| _bCtrl | Príznak stavu klávesy CTRL v momente stlačenia klávesy _VKCode. |
| _bShift | Príznak stavu klávesy SHIFT v momente stlačenia klávesy _VKCode. |
| _Alt | Príznak stavu klávesy ALT v momente stlačenia klávesy _VKCode. |
ENTRY OnKeyPress(IN INT _VKCode, IN BOOL _bCtrl, IN BOOL _bShift, IN BOOL _bAlt)
TEXT _msg
_msg := "_VKCode = " + %IToStr(_VKCode)
IF _bCtrl THEN
_msg := _msg + " +CTRL"
ENDIF
IF _bAlt THEN
_msg := _msg + " +ALT"
ENDIF
IF _bShift THEN
_msg := _msg + " +SHIFT"
ENDIF
MESSAGE _msg ON _FROM_HIP
END OnKeyPress |