IVZTreeItem.Selected

Копировать пример

Sub UserProc;
Var
    Metabase: IMetabase;
    EaxAnalyzer: IEaxAnalyzer;
    BubbleTree: IVZBubbleTree;
    RootItem: IVZTreeItem;
    Items: IVZTreeItems;
    Index: Integer;
    Item: IVZTreeItem;
    Model: IVZTreeModel;
Begin
    Metabase := MetabaseClass.Active;
    EaxAnalyzer := Metabase.ItemById("EXPRESS").Edit As IEaxAnalyzer;
    BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
    // Модель дерева
    Model := BubbleTree.Model;
    // Корневой элемент пузырькового дерева
    RootItem := Model.RootItem;
    RootItem.Selected := True;
    Debug.WriteLine("Идентификатор корневого элемента: " + RootItem.ID);
    // Дочерние элементы дерева
    Items := RootItem.Items;
    Debug.WriteLine("=== Дочерние элементы ===");
    For Index := 0 To Items.Count-1 Do
        // Идентификаторы дочерних элементов по индексу
        Item := Items.Item(Index);
        Debug.WriteLine((Index+1).ToString + ". Идентификатор: " + " " + Item.ID + ", родитель: " + Item.Parent.ID);
    End For;
    (EaxAnalyzer As IMetabaseObject).Save;
End Sub UserProc;