Code: Select all
Function p_HandlerFunc(msg)
Switch(msg.action)
Case "OnKeyUp":
If msg.key = "LEFT"
SystemRequest("Attention", "Left ","OK",#REQICON_WARNING)
EndIf
EndSwitch
EndFunction
InstallEventHandler({ActiveWindow = p_HandlerFunc,
OnKeyUp = p_HandlerFunc})
Repeat
WaitEvent
Forever