var FirstNode: TTreeNode; 然后将要添加子节点的父接点赋值给FirstNode; begin FirstNode := TreeView1.Items.Add(TreeView1.Items.GetFirstNode,'全部'); TreeView1.Items.AddChild(FirstNode,'子节点'); end;
var PNode : TTreeNode; begin PNode := TreeView.Items.Add(nil,'第一级节点'); PNode := TreeView.Items.Add(PNode,'第二级节点'); …… end;
FirstNode: TTreeNode;
然后将要添加子节点的父接点赋值给FirstNode;
begin
FirstNode := TreeView1.Items.Add(TreeView1.Items.GetFirstNode,'全部');
TreeView1.Items.AddChild(FirstNode,'子节点');
end;
begin
PNode := TreeView.Items.Add(nil,'第一级节点');
PNode := TreeView.Items.Add(PNode,'第二级节点');
……
end;