メニューの親アイテムが展開されると起動します

PRIM_MD.Menu (PRIM_MD.Menu) のメンバ

ﾊﾟﾗﾒｰﾀｰ

詳細

ItemExpanded  イベントは、親アイテムが展開された時に起動します。
 
ItemCollapsed は折りたたまれたメニュー アイテムを返します。

次の例では、アイテムの expanded や collapsed イベントで返されたアイテムを使って、親アイテムのアイコンが変更されています。

Begin_Com Role(*EXTENDS #PRIM_WEB) Theme(#SYS_THEME)
    Define_Com Class(#PRIM_MD.Menu) Name(#Menu) Displayposition(1) Height(400) Parent(#COM_OWNER) Tabposition(1) Width(240)
    Define_Com Class(#PRIM_MD.MenuItem) Name(#ParentItem) Caption('ITEMS 1') Displayposition(1) Height(50) Left(0) Parent(#Menu) Tabposition(1) Top(0) Width(240) Icon('keyboard_arrow_up')
    Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem) Caption('ITEM 1') Displayposition(2) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem) Tabposition(2) Top(50) Width(240)
    Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem1) Caption('ITEM 2') Displayposition(3) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem) Tabposition(3) Top(100) Width(240)
    Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem2) Caption('ITEM 3') Displayposition(4) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem) Tabposition(4) Top(150) Width(240)
    Define_Com Class(#PRIM_MD.MenuItem) Name(#ParentItem1) Caption('ITEMS 2') Displayposition(5) Height(50) Left(0) Parent(#Menu) Tabposition(5) Top(200) Width(240) Icon('keyboard_arrow_up')
    Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem3) Caption('ITEM 1') Displayposition(6) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem1) Tabposition(6) Top(250) Width(240)
    Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem4) Caption('ITEM 2') Displayposition(7) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem1) Tabposition(7) Top(300) Width(240)
    Define_Com Class(#PRIM_MD.MenuItem) Name(#MenuItem5) Caption('ITEM 3') Displayposition(8) Height(50) Icon('view_quilt') Left(0) Parent(#Menu) Parentitem(#ParentItem1) Tabposition(8) Top(350) Width(240)
 
        Evtroutine Handling(#Menu.ItemCollapsed) Item(#item)
 
            #item.Icon := 'keyboard_arrow_down'
 
        Endroutine
 
        Evtroutine Handling(#Menu.ItemExpanded) Item(#item)
 
            #item.Icon := 'keyboard_arrow_up'
 
        Endroutine
 
End_Com

参照

すべてのコンポーネント クラス

テクニカルリファレンス

EPC142030 February 2019