KeyPress イベント
KeyPressはコントロールにフォーカスがある間にキーボードのキーが押された時に起動されます。
印字可能な全ての文字のキー入力によりKeyPressイベントが起動されます。 さらに、KeyCodesにリストされているいずれのキーもこのイベントを起動することができます。
KeyPressは他の処理前にキーが押されるたびに起動されます。 このイベントにより、アプリケーションでキーが押されたことや、別のキーが押されたことをチェックすることができます。
例
次の例ではEnterキーが押された時のみ、処理を行います。
Evtroutine Handling(#EDIT_1.KeyPress)
Options(*NOCLEARMESSAGES *NOCLEARERRORS) Com_Sender(#cur_comp) Keycode(#KeyCode)
* Process when the 'Enter' key is pressed
If Cond('#KeyCode = Enter')
Invoke Method(#com_owner.ProcessOnEnterKey)
Endif
Endroutine
次の例ではAという文字がタイプされると全て感嘆符に変更されます。
Evtroutine Handling(#EDIT_2.KeyPress)
Options(*NOCLEARMESSAGES *NOCLEARERRORS) Com_Sender(#cur_comp) Char(#CHAR) Keycode(#KeyCode)
* Change all "a" key presses to "!"
If Cond('#char = ''a''')
Set Com(#char) Value('!')
Endif
Endroutine