Вопросы по TreeView

[Черничный]

Есть ли у treeView какое-нибудь свойство того что это родитель, а не потомок?

И еще: есть imagelist, так вот, всем родителям по умолчанию присвоено первое изображение(в свойствах), а мне надо, расскрытому родителю присвоить другое изображение из imagelist, а всем потомкам присваивать третье изображение. как это в коде прописать?
Родитель раскрылся у него второе изображение, у других родительских первое.

[AlexandrSid]

Свойство HasChildren возвращает True если у данного TTreeNode есть потомки и False если их нет (B := Node.HasChildren, где B логическая переменная, Node переменная типа TTreeNode).
Для установки изображения выбранного TTreeNode свойство SelectedIndex (Node.SelectedIndex := 2).
Свойство Expanded возвращет True если элемент раскрыт.

[Stilet]

Я бы не твоем месте проверял не на родительство а на раскрытость. Раскрытому элементу присвой изображение 1, его детям изображение 2.

[Черничный]

Что-то не очень ясно про то как картинку присвавивать. Какое свойство то? tree.selectindex...? (такого свойства у дерева нету)

[Stilet]

Родитель раскрылся у него второе изображение, у других родительских первое.

За раскрытие отвечает событие OnExpanding в неи меняй картинку раскрываемого.
За закрытие отвечает OnCollapsing.

[AlexandrSid]

Это свойство не дерева, а его элемента TTReeNode.

[AlexandrSid]

Я думаю можно сделать так.

procedure TForm1.TreeViewExpanded(Sender: TObject; Node: TTreeNode);
  var SubNode:TTreeNode;
begin
    Node.SelectedIndex := 2;
    Node.ImageIndex := 2;
    SubNode := Node.GetFirstChild;
    while SubNode <> nil do begin
      SubNode.ImageIndex := 3;
      SubNode := Node.GetNextChild(SubNode);
    end;
end;


procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
  Node.ImageIndex := 1;
  Node.SelectedIndex := 1;
end;