Pressed イベント
Pressed イベントは、ユーザーがショートカットキーを押すと起動されます。
この例では、どのコントロールにフォーカスがあるかにかかわらず、 F4 と F5 を使用できます。
Function Options(*DIRECT) Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(757) Clientheight(338) Componentversion(2) Top(214) Left(118) Define_Com Class(#prim_stpg) Name(#F4) Shortcut(F4) Parent(#COM_OWNER) Define_Com Class(#prim_stpg) Name(#F5) Shortcut(F5) Parent(#COM_OWNER) Define_Com Class(#EMPNO.Visual) Name(#EMPNO) Componentversion(1) Displayposition(1) Height(21) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(6) Usepicklist(False) Width(251) Define_Com Class(#SURNAME.Visual) Name(#SURNAME) Displayposition(2) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(28) Define_Com Class(#GIVENAME.Visual) Name(#GIVENAME) Displayposition(3) Left(8) Parent(#COM_OWNER) Tabposition(3) Top(50) Define_Com Class(#ADDRESS1.Visual) Name(#ADDRESS1) Displayposition(4) Left(8) Parent(#COM_OWNER) Tabposition(4) Top(72) Define_Com Class(#ADDRESS2.Visual) Name(#ADDRESS2) Componentversion(1) Displayposition(5) Height(21) Left(8) Parent(#COM_OWNER) Tabposition(5) Top(94) Usepicklist(False) Width(537) Define_Com Class(#ADDRESS3.Visual) Name(#ADDRESS3) Componentversion(1) Displayposition(6) Height(21) Left(8) Parent(#COM_OWNER) Tabposition(6) Top(116) Usepicklist(False) Width(537) Define_Com Class(#PRIM_PHBN) Name(#Button1) Caption('Button1') Displayposition(7) Left(8) Parent(#COM_OWNER) Tabposition(7) Top(144) Define_Com Class(#PRIM_PHBN) Name(#Button2) Caption('Button2') Displayposition(8) Left(96) Parent(#COM_OWNER) Tabposition(8) Top(144) Evtroutine Handling(#F4.Pressed) #Com_owner.Caption := F4 Endroutine Evtroutine Handling(#F5.Pressed) #Com_owner.Caption := F5 Endroutine End_Com
2018 - V14SP1