ParentItem は、次のアイテムです

ツリー ビュー アイテム (PRIM_TVIT) のメンバ

ﾃﾞｰﾀ ﾀｲﾌﾟ - PRIM_TVIT - ツリー ビュー内のエントリー

詳細

ParentItem プロパティは、アイテムを含むリスト内の項目です。
 
ツリーのルートにある項目には、 Null の ParentItem があります。
 
階層を持った ViewStyle のツリーは、自動的にツリーが構築された時にデータに基づいて ParentItem を割り当てます。
 
それら非階層の ViewStyle は、 ParentItem がプログラムで割り当てられている必要があります。

例

この例は、 5 つの項目を追加する簡単なリストです。項目が展開されるたびに、ツリーは 5 つの子アイテムを展開アイテムに追加します。

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(480) Clientheight(398) Left(259) Top(261) Height(437) Width(496) 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(#TreeView1Item1) Column(#Column1) Manage(#Tree) Parent(#TableLayout1) Row(#Row1)
 
   Define_Com Class(#PRIM_TRVW) Name(#Tree) Columnbuttonheight(19) Componentversion(2) Displayposition(1) Height(398) Keyboardpositioning(SortColumn) Left(0) Parent(#COM_OWNER) Tabposition(1) Top(0) Width(480) Viewstyle(UnLevelled)
   Define_Com Class(#PRIM_TVCL) Name(#TreeViewColumn1) Displayposition(1) Level(1) Parent(#Tree) Source(#xDemoNumber) Width(43)
 
   Evtroutine Handling(#Com_owner.CreateInstance)
 
      #Com_Self.Add5Items
 
 Endroutine
 
   Mthroutine Name(Add5Items)
   Define_Map For(*input) Class(#Prim_tvit) Name(#ParentItem) Mandatory(*Null) Pass(*By_reference)
 
      Begin_Loop Using(#xDemoNumber) To(5)
 
         Add_Entry To_List(#Tree)
 
         #Tree.CurrentItem.ParentItem <= #ParentItem
         #Tree.CurrentItem.HasChildren := Unknown
 
 End_Loop
 
 Endroutine
 
   Evtroutine Handling(#Tree.ItemExpanding)
 
      If (#Tree.CurrentItem.HasChildren <> Yes)
         #Com_Self.Add5Items( #Tree.currentitem )
 Endif
 
 Endroutine
 
 End_Com

参照

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

テクニカルリファレンス

2018 - V14SP1