Основные методы класса TTreeView

function AlphaSort: Boolean;

Сортировка всех узлов дерева в алфавитном порядке

procedure FullCollapse;

Сжатие всех раскрытых узлов дерева

procedure FullExpand;

Раскрытие всех узлов дерева

function GetHitTestInfoAt(X, Y: Integer): THitTests;

Подробная информация и том, какой части дерева (тип THitTests) принадлежит указанная точка клиентской области (координаты в пикселах)

function GetNodeAt(X, Y: Integer): TTreeNode;

Получение узла дерева, которому принадлежит указанная точка клиентской области. Возвращает значение nil, если такого узла нет

function IsEditing: Boolean;

Возвращает значение True, если выполняется редактирование одного из узлов дерева

 

Основные события класса TTreeView, не совпадающие с событиями класса TListView

OnCollapsed

Узел был свернут

OnCollapsing

Идет процесс сворачивания узла

OnExpanded

Узел был развернут

OnExpanding

Идет процесс разворачивания узла

 

Выше уже говорилось, что обращение к узлам дерева напрямую по номеру — операция очень неэффективная.

Следующий пример показывает, как быстро перебрать все узлы дерева.

var CurItern: TTreeHode;

begin

CurItem:= TreeViewl.Items.GetFirstNode;

while CurItem <> nil do

begin

// выполнить нужные действия над узлом CurItem

CurItem:= CurItem.GetNext;

end;

end;

Основные методы класса TTreeNodes

function AddChildFirst(Node: TTreeNode;const S: string): TTreeNode;

Добавление узла первым потомком узла Node (метод AddChild добавляет узел последним

потомком)

function AddChildObjectFirst(Node: TTreeNode;const S: string; Ptr: Pointer): TTreeNode;

function AddChildObject(Node: TTreeNode;const S: string; Ptr: Pointer): TTreeNode;

То же, но с новым узлом через его свойство Data связывается объект, передаваемый через

указатель Ptr. Метод AddChildObjectFirst добавляет узел в начало, а метод AddChildObject в конец списка узлов-потомков

function AddFirst(Node: TTreeNode;const S: string): TTreeNode;

Добавить узел первым на уровне узла Node (метод Add добавляет узел последним на этом уровне)

function AddObject(Node: TTreeNode;const S: string; Ptr: Pointer): TTreeNode;

function AddObjectFirst(Node: TTreeNode;const S: string; Ptr: Pointer): TTreeNode;

То же, но с новым узлом через его свойство Data связывается объект, передаваемый через

указатель Ptr. Метод AddObjectFirst добавляет узел в начало, а метод AddObject — в конец списка узлов на уровне узла Node

procedure BeginUpdate;

procedure Endllpdate;

Приостановка и возобновление перерисовки дерева. Применяется для ускорения продолжительных операций над деревом

function GetFirstNode: TTreeNode;

Получить первый узел дерева (с номером 0)

 

function Insert(Node: TTreeNode;const S: string): TTreeNode;

Добавить узел перед узлом Node

function InsertObject(Node: TTreeNode;const S: string; Ptr: Pointer): TTreeNode;

То же, но с добавляемым узлом через его свойство Data связывается объект, передаваемый через указатель Ptr

 

Примечания.

О Узел считается видимым, если все его родительские узлы развернуты.

О Если найти подходящий узел не удалось, соответствующие методы возвращают значение nil.

Методы класса TTreeView (узел дерева).

function AlphaSort: Boolean;

Сортировка всех потомков узла

procedure Collapse(Recurse: Boolean);

Сжатие узла

procedure Delete;

Удаление узла и всех его потомков

procedure Delete Children;

Удаление всех потомков узла

function DisplayRect(TextOnty: Boolean): TRect;

Возвращает прямоугольник, которым узел ограничивается на экране. Если значение параметра TextOnly равно True, то в прямоугольник записывается только область текстового имени узла

function EditText: Boolean;

Начинает редактирование имени узла

procedure EndEdit(Cancel: Boolean);

Завершает редактирование узла. Если значение параметра Cancel равно Тrue, то восстанавливается прежнее значение свойства Text

procedure Expand(Recurse: Boolean);

Разворачивает узел. Если значение параметра Recurse равно True, то разворачиваются и все узлы-потомки

function GetFirstChild: TTreeNode;

Возвращает первый узел из списка потомков

function GetLastChild: TTreeNode;

Возвращает последний узел из списка потомков

function GetNext: TTreeNode;

function GetPrev: TTreeNode;

Возвращает следующий (GetNext) или предыдущий (GetPrev) узел по отношению к текущему с учетом невидимых узлов и узлов-потомков

function GetNextChild(Value: TTreeNode): TTreeNode;

function GetPrevChild(Value: TTreeNode): TTreeNode;

Возвращает следующий (GetNextChild) или предыдущий (GetPrevChild) узел-потомок по отношению к узлу-потомку Value

function GetNextSibling: TTreeNode;

function GetPrevSibling: TTreeNode;

Возвращает следующий (GetNextSibling) или предыдущий (GetPrevSibling) узел на уровень текущего узла, независимо от того, виден ли он

function GetNextVisible: TTreeNode;

function GetPrevVisible: TTreeNode;

Возвращает следующий (Get NextVisible) или предыдущий (GetPrevVisible) видимый узел

 

function HasAsParent(Value: TTreeNode): Boolean;

Возвращает значение True, если узел Value является родительским для текущего узла

Function IndexOf(Value: TTreeNode): Integer;

Возвращает позицию узла в списке узлов-потомков узла Value. Если узел Value не прямой родитель текущего узла, то функция возвращает значение -1

Procedure MakeVisible;

Разворачивает подходящие вышестоящие узлы таким образом, чтобы текущий узел стал видимым

Procedure MoveTo(Destination: TTreeNode;Mode: TNodeAttachMode);

Перемещает текущий узел в область узла Destination. Конкретное положение определяется значением параметра Mode

(Практика Хмельнова)