グリッド - EditorChanged イベント
編集可能なセルでユーザーが値を変更した場合に起動されます
グリッド (PRIM_GRID) のメンバ
| 名前 | ﾀｲﾌﾟ | ﾃﾞｰﾀ ﾀｲﾌﾟ | 記述 |
|---|---|---|---|
| Value | *Input | バリアント | セルに入力された値 |
EditorChanged イベントは列のエディターで変更された時に起動します。例えば、編集ボックスのエディターでは、各キー入力ごとにこのイベントが起動します。 このイベントは、基本となる作業リストが更新される前に発生します。これは、リスト内の対応するフィールド値が、値パラメータのフィールド値と異なることを意味します。
下の例では、姓の列と名の列を編集できます。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(792) Clientheight(394) Componentversion(2) Top(227) Left(222) Layoutmanager(#TableLayout1)
Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1)
Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#Column1) Manage(#Grid) Parent(#TableLayout1) Row(#Row1)
Define_Com Class(#PRIM_GRID) Name(#Grid) Captionnoblanklines(True) Columnscroll(False) Componentversion(1) Displayposition(1) Height(394) Left(0) Parent(#COM_OWNER) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(1) Top(0) Width(792) Columnbuttonheight(25) Rowheight(28) Columnellipses(End)
Define_Com Class(#PRIM_GDCL) Name(#GridColumn1) Displayposition(1) Parent(#Grid) Source(#EMPNO)
Define_Com Class(#PRIM_GDCL) Name(#GridColumn2) Displayposition(2) Parent(#Grid) Source(#SURNAME) Readonly(False)
Define_Com Class(#PRIM_GDCL) Name(#GridColumn3) Displayposition(3) Parent(#Grid) Source(#GIVENAME) Readonly(False)
Evtroutine Handling(#Com_Owner.CreateInstance)
Select Fields(#Grid) From_File(pslmst)
Add_Entry To_List(#Grid)
Endselect
Endroutine
Evtroutine Handling(#Grid.EditorChanged) Value(#Value)
If (#Grid.FocusCell.Column *IsEqualTo #GridColumn2)
#Com_owner.Caption := ("New value - &1, Old value &2").Substitute( #Value #Surname )
Endif
If (#Grid.FocusCell.Column *IsEqualTo #GridColumn3)
#Com_owner.Caption := ("New value - &1, Old value &2").Substitute( #Value #Givename )
Endif
Endroutine
End_Com
2018 - V14SP1