Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 193)

...

Листинг 4.27.
Создание первого элемента дерева – диска
procedure TForm3.FormCreate(Sender: TObject);
begin
//Корневой элемент дерева (диск)
root := tree.Items.Add(tree.Items.GetFirstNode, \'C:\');
root.ImageIndex := 0;
root.SelectedIndex := 0;
SetExpanded(root, False);
end;

Здесь и далее в примере root позволяет быстро получать доступ к корневому элементу дерева. Используемая в листинге 4.27 процедура применяется для установки состояния элементов дерева (листинг 4.28).