Компонент Delphi TreeView

Компонент Delphi TreeView служит для показа иерархических данных. Отображение имеет древовидную структуру, в которой можно выбрать необходимый узел или узлы. Информация может быть разнообразной от структуры большого учреждения до структуры простого документа. Каждый узел имеет свои значения и параметры.

Рисунок 20 – Данные компонента в свойстве Items

Данные компонента TreeView содержатся в свойстве Items. На этапе разработки проекта дерево формируется в окне редактора узлов дерева. Редактор вызывается двойным щелчком на компjненте TreeView или в Инспекторе Объектов нажать на кнопку с многоточием рядом со свойством Items. Также можно загрузить структуру из обычного текстового файла. Уровни узлов будут обозначаться отступами. Например данные, которые мы видим на рисунке вверху можно загрузить из файла с таким содержанием -

Города
Москва
Волгоград
Воронеж
Страны
Чехия
Германия

Кнопка New Item - добавляет новый узел. Новый узел будет на том же уровне, где в момент добавления находилась мышь.

Кнопка New SubItem - добавляет дочерний узел. Он будет на уровень ниже чем тот узел на котором располагалась мышь.

Delete - удалит узел на который указывает мышь.

В панели Item Properties можно задать такие свойства узла как Text (это надпись узла), и пиктограммы рядом с узлом.

Image Index - картинка если пользователь выделил узел,

Selected Index - узел не выделен,

State Index - это вторая миниатюра, которая остается с узлом постоянно не зависимо от его состояния.

Пиктограммы берутся из компонента ImageList, который должен быть присоединен в окне Инспектора Объектов к компаненту TreeView в свойствах Images и StateImages. Каждой пиктограмме в ImageList соответствует свой индекс, от 0 и до количества пиктограмм. Индекс -1 указывает, что рисунка в данной категории нет.

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

Рисунок 21 – Пример использования компонента TreeView

Для закрепления сделайте приложение по образцу рисунка справа. Рисунки для компонента ImageList можно взять из каталогов C:\Program Files\Common Files\Borland Shared\Images\Buttons или
C:\Program Files\Common Files\Borland Shared\Images\Icons,
которые устанавливаются вместе с Delphi. При нажатии на кнопку Узел компонент Label1 будет отображать название узла. Код кнопки Узел будет таким -

Label1.Caption:=TreeView1.Selected.Text;