HotKeyPressed イベント
Pressedイベントは、ユーザーがショートカットキーを押すと起動されます。このイベントを使用して、ショートカットキーで起動されるアクションを指定します。
以下のPressedイベントは、ショートカットキーが押された時にメッセージ・ボックスを表示します。
EVTROUTINE HANDLING(#FORM_SHORTCUTKEY.Pressed)
use builtin(MESSAGE_BOX_SHOW) with_args(OK OK 'Shortcut' '' 'Shortcut key for form pressed. ')
ENDROUTINE
Form SC_MAIN:
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(79) Clientwidth(492) Height(106) Left(244) Top(124)
Define_Com Class(#SC_CHILD) Name(#SC_CHILD_1) Componentversion(1) Formstyle(NormalChild) Left(400)
Define_Com Class(#SC_CHILD) Name(#SC_CHILD_2) Componentversion(1)
Define_Com Class(#PRIM_STPG) Name(#STPG_1) Parent(#COM_OWNER) Shortcut(Shift+F1)
Evtroutine Handling(#com_owner.Initialize)
Set Com(#com_owner) Caption(*component_desc)
#SC_CHILD_1.FormOwner <= #Com_Owner
#SC_CHILD_1.ShowForm
#SC_CHILD_2.ShowForm
Endroutine
Evtroutine Handling(#STPG_1.Pressed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Use Builtin(OV_Message_Box) With_Args("Short cut has been pressed")
Endroutine
End_Com
Form SC_CHILD:
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(100) Clientwidth(333) Height(127) Left(46) Top(412) Width(341)
Define_Com Class(#PRIM_EDIT) Name(#EDIT_1) Displayposition(1) Left(8) Parent(#COM_OWNER) Showselection(False) Showselectionhilight(False) Tabposition(1) Top(8) Width(313)
Define_Com Class(#PRIM_EDIT) Name(#EDIT_2) Displayposition(2) Left(8) Parent(#COM_OWNER) Showselection(False) Showselectionhilight(False) Tabposition(2) Top(48) Width(313)
Evtroutine Handling(#com_owner.Initialize)
Set Com(#com_owner) Caption(*component_desc)
Endroutine
End_Com