HotKeyPressed イベント

LANSA

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