每个node都可以附带一个数据结构
在  AddObject, AddChildObject中添加,具体请查看帮助,有例子

解决方案 »

  1.   

    它是一个指针,可以指向很多东西,在写数据库程序时,我经常用它来装载一个表的某条记录一个字段值,这样可以很好的解决当点击TREEVIEW时可以很快的通过这个NODE.DATA来找到我要的那条记录,如
    procedure additemtotree();
    var node:ttreenode;
    begin
      while not table1.Eof do begin
        node:=TreeView1.Items.AddObject(nil,Table1.FieldByName('标   题').asstring,pointer(Table1.FieldByName('ID').AsInteger));
       Table1.next;
      end;
    end;
    procedure TForm1.TreeView1change(Sender:TObject;Node:TTreeNode);
    begin
      if not Table1.locate('ID',Integer(Node.Data),[]) then begin
        showmessage('no find the record!');
        exit;
      end;
    .....do something.....
    end;