Получение выбранных детей с TTreeview

Question

Я пытаюсь получить все дочерние узлы выбранного узла в treeview, но столкнулся с несколькими проблемами.

Возьмите этот TreeView в качестве примера:

Я хочу, чтобы получить все узлы, которые ребенок желтого цвета «Папка» узла, который будет дочерние узлы с синей линией рядом с ним ,

Это то, что я пробовал:

procedure Form1.GetTreeChilds(ANode: TTreenode); 
begin 
    while ANode <> nil do 
    begin 
    ListBox1.Items.Add(ANode.Text); 
    ANode := ANode.GetNext; 
    end; 
end; 

Он работает за исключением того, что она также возвращает Пункт 6, который не является дочерним по отношению к желтому цвету «Папке».

Что мне нужно изменить или сделать иначе, чтобы получить дочерние узлы в желтую папку Highligted?

Спасибо.

Answer 1

Попробуйте вместо этого:

procedure Form1.GetTreeChilds(ANode: TTreeNode); 
begin 
    ANode := ANode.GetFirstChild; 
    if ANode = nil then Exit; 
    ListBox1.Items.BeginUpdate; 
    try 
    repeat 
     ListBox1.Items.Add(ANode.Text); 
     GetTreeChilds(ANode); 
     ANode := ANode.GetNextSibling; 
    until ANode = nil; 
    finally 
    ListBox1.Items.EndUpdate; 
    end; 
end;