Компонент Дерево в Delphi

[Oleg_Rus]

Лю-ю-ю-ди-и-и!!!

Объясните пожалуйста как пользоваться компонентом дерево в Delphi.
вот, скажем, на панели инструментов выбираешь этот компоненти и сразу вопрос:
КАК ЕГО ЗАПОЛНИТЬ?

[Игорь Акопян]

Oleg_Rus, вручную кодом. Оно не заполняется в дизайн-тайм

[vunder]

Код: Выделить всё

procedure TfmMain.FormShow(Sender: TObject);
var
  i: Integer;
  t: TTreeNode;
begin
  Files := TFileItemList.Create(nil);
//Items: TStringList;
  for i := 0 to Items.Count-1 do
    begin
      t := Tree.Items.Add(nil,Items.Items[i].Name);
      t.HasChildren := False;
    end;
end;

//добавление подэлементов
procedure AddChilds (ParentNode: TTreeNode; Childs: TStringList);
var
  i: Integer;
  t: TTreeNode;
begin
  for i := 0 to Childs.Count-1 do
    begin
      t := Tree.Items.AddChild(ParentNode,Childs.Items[i].Name);
// здесь можно сновая вызвать AddChilds(t,List), чтобы рекурсивно добавить элементы
// тогда свойство t.HasChildren нужно установить в True
      t.HasChildren := False;
    end;
end;

[Oleg_Rus]

а как сделать так, чтобы дерево отображало содержимое всего компа от и до (не включая скрытые файлы)?

[SergeyS]

Посмотри здесь http://forum.developing.ru/showthread.php?t=7377, может тебе это нужно? А то похоже ты изобретаешь велосипед

[Oleg_Rus]

А то похоже ты изобретаешь велосипед

не столько изобретаю, сколько пытаюсь понять его конструкцию
и не велосипед, а роликовые коньки