delphi - 获取选定的 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 项返回到黄色突出显示的“文件夹”。

我需要改变什么或做些不同的事情才能将子节点放到黄色的高亮文件夹中？

谢谢。

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;