有没有人用Virtual Treeview

Question

我刚用这个控件,有些不明白请教
    如何增加一个如下的结构
    A1
      B1
      B2
        C1
        C2
        C3
    A2
    A3
    在其附的DEMO上对每一层的CAPTION没有例子

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var ls:TTreeNode;
begin
  ls:=self.TreeView1.Items.Add(nil,'a1');
  self.TreeView1.Items.Add(nil,'a2');
  self.TreeView1.Items.Add(nil,'a3');
  self.TreeView1.Items.Add(ls,'b1');
  ls:=self.TreeView1.Items.Add(ls,'b2');
  self.TreeView1.Items.Add(ls,'c1');
  self.TreeView1.Items.Add(ls,'c2');
  self.TreeView1.Items.Add(ls,'c3');
end;