急！急！

Question

有谁提供节点可以有无限子节点的，子节点有无限子节点的控件，给点思路也行，帮忙一下拉！谢谢了！大概意思如下：
1节点-公司
 2子节点-行政部
    2.1子子节点-王琨
    2.2子子节点-张三
    2.3子子节点-人力资源部
        2.3.1子子子节点-李四
        2.3.2子子子节点-李三
        2.3.3子子子节点-管饭部
          2.3.3.1子子子子节点-王麻子
         ......(部门和部门员工数无限下去)
 2子节点-技术部
  ......(部门和部门员工数无限下去)
 2子节点-财务部
 ......(部门和部门员工数无限下去)给个思路也行 最好有源码，先谢谢各位大侠了！

Answer 1

你这个无限好吓人哦。delphi 自带的treeview就能满足你的要求。

Answer 2

这段代码使用了CNpack的控件，自己改一下就行procedure TForm1.Button1Click(Sender: TObject);
var
  node,node2,node3,node4:TTreeNode;
begin
self.CnCheckTreeView1.Items.Clear;
self.CnCheckTreeView2.Items.Clear;
self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Add('select * from zbk');
self.ADOQuery1.Open;
while not self.ADOQuery1.Eof do begin
self.ADOQuery2.SQL.Clear;
self.ADOQuery2.SQL.Add('select * from LXR where ZID='+self.ADOQuery1.fieldbyname('id').AsString);
self.ADOQuery2.Open;
node:=self.CnCheckTreeView1.Items.add(nil,self.ADOQuery1.fieldbyname('组别').AsString+'(共:'+inttostr(self.ADOQuery2.RecordCount)+'人)');
CnCheckTreeView1.Checked[node]:=false;
node3:=self.CnCheckTreeView2.Items.add(nil,self.ADOQuery1.fieldbyname('组别').AsString+'(共:'+inttostr(self.ADOQuery2.RecordCount)+'人)');
self.ADOQuery2.First;
while not self.ADOQuery2.Eof do begin
node2:=self.CnCheckTreeView1.Items.AddChild(node,self.ADOQuery2.fieldbyname('姓名').AsString+'['+self.ADOQuery2.fieldbyname('手机').AsString+']'+trim(self.ADOQuery2.fieldbyname('备注').AsString));
node4:=self.CnCheckTreeView2.Items.AddChild(node3,self.ADOQuery2.fieldbyname('姓名').AsString+'['+self.ADOQuery2.fieldbyname('手机').AsString+']'+trim(self.ADOQuery2.fieldbyname('备注').AsString));
CnCheckTreeView1.Checked[node2]:=false;
node2.SelectedIndex := self.ADOQuery2.fieldbyname('id').AsInteger ;
node4.SelectedIndex := self.ADOQuery2.fieldbyname('id').AsInteger ;
self.ADOQuery2.Next;
end;
self.ADOQuery1.Next;
end;
end;

Answer 3

学习下CXDBTREELIST控件，，很黄，很暴力！！

Answer 4

treeview 是可以实现，但是它满足不了去其他的功能，功能基本上和QQ列表一样唯一区别就是，节点无限，所以得写个控件，大家继续啊，我也是新手，期待一起进步，如果您是高手不防漏俩手，让我们学习学习，让我们开开眼界，都说delphi不行了，可我们就坚持顶它！

Answer 5

谁说TreeView节点有限了？你会用么？还是你表达不正确。。

Answer 6

我改的这个控件由几个pannel组成，现在这个控件只支持一层节点，但是我递归之后出现栈溢出，现在还找不到方法，希望能得到好心人的帮助！