Delphi中怎么动态加载TreeView信息

在Delphi中，可以使用TTreeNode的AddChild方法来动态加载TreeView信息。以下是一个简单的示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  Node: TTreeNode;
begin
  // 清空TreeView
  TreeView1.Items.Clear;

  // 创建根节点
  Node := TreeView1.Items.Add(nil, 'Root');

  // 创建子节点
  TreeView1.Items.AddChild(Node, 'Child 1');
  TreeView1.Items.AddChild(Node, 'Child 2');

  // 展开根节点
  Node.Expand(True);
end;

在上述代码中，首先清空TreeView的所有节点，然后创建一个根节点。使用AddChild方法为根节点创建两个子节点，最后展开根节点。

如果要动态加载更多的节点，可以在需要的时候使用AddChild方法为指定的父节点创建子节点。

注意：在以上示例中，使用了一个Button的Click事件来触发动态加载TreeView信息的操作。你可以根据自己的需求选择适当的事件来触发动态加载操作。