マウスがクリックされた時に実行されます。
PRIM_LIST.String クラス (PRIM_LIST.String) のメンバ
マウスが列内のセルの境界の範囲内にあるときに、ユーザーがマウスの左ボタンを押して離すと、 Click イベントが発生します。 ColumnClick イベントは、列ヘッダーのクリックに使用されます。
この例は 3 行です。クリックイベントは、各列のエントリと列の見出しに対して発生します。
Begin_Com Role(*EXTENDS #PRIM_WEB) Height(440) Width(688) Define_Com Class(#PRIM_LIST) Name(#List) Displayposition(1) Left(8) Parent(#COM_OWNER) Tabposition(1) Top(8) Height(417) Width(665) Define_Com Class(#PRIM_LIST.Button) Name(#ColumnButton1) Columnwidth(92) Displayposition(1) Parent(#List) Define_Com Class(#PRIM_LIST.Image) Name(#ColumnImage1) Columnwidth(50) Displayposition(2) Parent(#List) Image(#xImageFavorites16) Define_Com Class(#PRIM_LIST.CheckBox) Name(#ColumnCheckBox1) Columnwidth(50) Displayposition(3) Parent(#List) Evtroutine Handling(#Com_owner.CreateInstance) Add_Entry To_List(#List) Add_Entry To_List(#List) Add_Entry To_List(#List) Endroutine Evtroutine Handling(#ColumnButton1.Click) #sys_web.alert( ("Button &1 Clicked").Substitute( #List.CurrentItem.Entry.Asstring ) ) Endroutine Evtroutine Handling(#ColumnCheckBox1.Click) #sys_web.alert( ("Checkbox &1 Clicked").Substitute( #List.CurrentItem.Entry.Asstring ) ) Endroutine Evtroutine Handling(#ColumnImage1.Click) #sys_web.alert( ("Image&1 Clicked").Substitute( #List.CurrentItem.Entry.Asstring ) ) Endroutine Evtroutine Handling(#ColumnButton1.ColumnClick #ColumnCheckBox1.ColumnClick #ColumnImage1.ColumnClick) Com_Sender(#Sender) #sys_web.alert( ("Column &1 Clicked").Substitute( #Sender.Name ) ) Endroutine End_Com
EPC142030 February 2019