cxTreeView的用法

Question

使用cxTreeView1代替Treeview，如何在formshow事件中把数据库的值进行加载？
procedure TForm1.FormShow(Sender: TObject);
var
  aNode:TTreeNode;
  i,j:integer;
  kind,tmpkind:string;
begin
  SendMessage(ListBox1.Handle,LB_SetHorizontalExtent,5000, longint(0));
  ADODataSet_life.Close;
  ADODataSet_life.CommandText:='select distinct subject from 01 ';
  ADODataSet_life.Open;
  ADODataSet_life.First;
  for i:=0 to ADODataSet_life.RecordCount-1 do
  begin
    kind:=ADODataSet_life.FieldByName('subject').AsString;
    aNode := TreeView1.Items.AddChild(nil,kind) ;    ADODataSet.Close;
    ADODataSet.CommandText:='select name from 01 where subject=''' + kind + '''';
    ADODataSet.Open;
    ADODataSet.First;
    for j:=0 to ADODataSet.RecordCount-1 do
    begin
      tmpkind:=ADODataSet.FieldByName('name').AsString;
      TreeView1.Items.AddChild(aNode,tmpkind);
      ADODataSet.Next;
    end;
     ADODataSet_life.Next;
  end;
end;
这是使用的Treeview，有人说使用cxTreeView如果是10000条记录采用这个只需要几秒就显示出来了，使用Treeview需要10分钟左右，因此需要cxTreeView来显示，那么具体怎么做呢？

Answer 1

其实stringgrid也不错的，只是功能差一点，但是显示的速度还是很快的cxtreeview的用法基本上和treeciew一样，把TreeView1换成cxtreeview1什么的名字就好了啊