IWTreeview是怎样用的？

Question

如怎样增加一个节点，怎样写它的Onclick事件呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
   TreeView1.Items.AddChild(TreeView1.Selected, 'd fafs')
end;

Answer 2

建立一个过程声明: procedure test(Sender: TObject);procedure Tmain.test(Sender: TObject);
var
  temp: TIWTreeViewItem;
begin
  temp := TIWTreeViewItem(Sender);
  webapplication.showmessage(temp.caption);
end;procedure Tmain.IWAppFormCreate(Sender: TObject);
var
  a, b, c: TIWTreeViewItem;
begin
   a := IWTreeView1.Items.Add;
   a.Caption := 'aaaa';
   a.Expanded := False;
   a.OnClick := test;
   IWTreeView1.Text := a.Caption;   b := a.SubItems.Add;
   b.Caption := 'bbb';
   b.Expanded := False;
   b.OnClick := test;
   IWTreeView1.Text := b.Caption;   c := b.SubItems.Add;
   c.Caption := 'ccc';
   c.Expanded := False;
   c.OnClick := test;
   IWTreeView1.Text := c.Caption;
end;