Объект TreeView

Begin

Begin

if opendialog1.Execute then

case pagecontrol1.ActivePageIndex of

0: listbox1.Items.LoadFromFile(opendialog1.FileName);

1: listbox2.Items.LoadFromFile(opendialog1.FileName);

2: listbox3.Items.LoadFromFile(opendialog1.FileName);

3: listbox4.Items.LoadFromFile(opendialog1.FileName);

4: listbox5.Items.LoadFromFile(opendialog1.FileName);

5: listbox6.Items.LoadFromFile(opendialog1.FileName);

6: listbox7.Items.LoadFromFile(opendialog1.FileName);

end;

end;

Процедура на кнопку «Добавить» - содержимое строки ввода добавляется в список ListBox выше выбранной в списке строки.

procedure TForm1.BitBtn2Click(Sender: TObject);

case pagecontrol1.ActivePageIndex of

0: listbox1.Items.Insert(listbox1.ItemIndex,edit1.text);

1: listbox2.Items.Insert(listbox2.ItemIndex,edit1.text);

2: listbox3.Items.Insert(listbox3.ItemIndex,edit1.text);

3: listbox4.Items.Insert(listbox4.ItemIndex,edit1.text);

4: listbox5.Items.Insert(listbox5.ItemIndex,edit1.text);

5: listbox6.Items.Insert(listbox6.ItemIndex,edit1.text);

6: listbox7.Items.Insert(listbox7.ItemIndex,edit1.text);

end;

edit1.Clear;// очистка поля ввода

edit1.SetFocus;// возвращение фокуса в поле ввода

end;

Самостоятельнонапишите процедурына кнопки «Сохранить», «Удалить», «Изменить».

Глава XVIII. Иерархические структуры

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

Для наполнения списка на этапе конструирования программы нужно щелкнуть по компоненту правой кнопку мыши и выбрать Items Editor. На экране появляется окно редактора компонента.

Чтобы начать наполнение, щелкните по кнопке New Item и введите связанный с узлом текст в поле Text. Для вывода подузла любого уровня сначала нужно щелкнуть в окошке Items по узлу, который должен стать родительским, и лишь зачем – на кнопке New SubItem.

Свойства компонента TreeView:

Свойство	Значение
Items	Открывает доступ любому узлу по его индексу
Images	Содержит набор изображений, которые будут использоваться при прорисовке узлов.
Indent	Определяет отступ в пикселях от левого угла узла для всех его подпунктов
BorderStyle	Определяет стиль рамки
SortType	Указывает способ сортировки узлов: stNone – нет сортировки; stData – сортировка по данным; stText – сортировка по тексту надписей; stBoth – сортировка по тексту и по данным
ReadOnly	Запрещает/разрешает редактирование надписей в узлах

Методы компонента TreeView:

Метод	Назначение
FullCollapse	Прячет все узлы, кроме узлов самого верхнего уровня иерархии
FullExpand	Показывает все узлы дерева иерархии
LoadFromFile(FileName: string)	Загружает дерево иерархии из файла
SaveToFile(FileName: string)	Сохраняет в файле дерево иерархии

События компонента TreeView:

Событие	Значение
OnChange	Возникает при смене состояния выбора у одного из узлов. Node –узел, который изменил состояние.
OnCollapsed	Возникает при закрытии списка подузлов узла Node
OnDeletion	Возникает при удалении узла Node из дерева иерархии
OnExpanded	Возникает при распахивании списка подузлов узла Node

При программном заполнении списка следует пользоваться свойством TreeView.Items класса TTreeNodes:

Свойства класса TTreeNodes

Свойство	Значение
Count	Количество узлов, входящих в Items
Item[Index]	Открывает индексированный доступ к узлам
Owner	Содержит ссылку на родительский список

Методы класса TTreeNodes

Метод	Назначение
Add(node:TTreeNode, const s: string)	Создание нового элемента и его добавление в конец списка/ Если Node = NIL, добавляется корневой узел для всего компонента
Clear	Удаление всех элементов списка и освобождение занимаемой ими памяти
Delete (index: integer)	Удаление указанного элемента
Insert (index: integer)	Создание нового элемента и его добавление в указанную позицию списка

Каждый узел класса TTreeNode имеет свой набор методов и свойств.

Свойства TTreeNode

Свойство	Значение
AbsoluteIndex	Возвращает абсолютный индекс узла (с учетом всех подузлов)
Count	Содержит количество подузловв списке Item
Expanded	Содержит True, если узел распахнут
Text	Содержит текст узла
TreeView	Содержит ссылку на компонент TreeView, к которому принадлежит узел

Методы класса TTreeNode

Метод	Назначение
AlphaSort	Сортирует узлы по алфавиту свойств text и возвращает True в случае успеха
Collapse(Recourse: Boolean)	Закрывает все узлы (recourse=true) или только распахнутые (recourse=false)
EditText: Boolean	Переводит текст узла в режим редактирования

Дата добавления: 2015-05-09