Тема: TreeView :(
Показать сообщение отдельно
  #2  
Старый 24.11.2008, 23:36
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,106
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Потому что это в принципе неправильное обращение.
Если тебе надо достать корневые ветки, то пройдись по коллекции Items и выбери тех, у кого Parent = Nil. Это самый понятный метод. Можно достать красивее, но для начала и так сойдет.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  For I := 0 To TreeView1.Items.Count - 1 Do
    If TreeView1.Items[i].Parent = Nil Then
      Memo1.Lines.Add(TreeView1.Items[i].Text);
end;
Ответить с цитированием