treeview.txt

用户管理：用于对用户的添加

    with   Tree.Items   do   
           begin   
             Clear;   {   remove   any   existing   nodes   }   
              maintree:=Add(nil,   'RootTreeNode1');   {   Add   a   root   node   }   
               addchild(maintree,'ll1');   
                addchild(maintree,'lll2');   
            end;   
  tree的images的里的imagelist里面有3个图标，我想在根节点上是第一个图标，孩子ll1里面是第2个图标，孩子lll2的图标是第3个。请问如何完成。 


1 楼xxmmmx（踢踏）回复于 2002-02-06 10:03:58 得分 20var   
      gNode:   TTreeNode;   
  begin   
      with   Tree.Items   do   
      begin   
          Clear;   {   remove   any   existing   nodes   }   
          maintree:=Add(nil,   'RootTreeNode1');   {   Add   a   root   node   }   
          maintree.ImageIndex:=1;   
          gNode:=addchild(maintree,'ll1');   
          gNode.ImageIndex:=2;   
          gNode:=addchild(maintree,'lll2');   
          gNode.ImageIndex:=3;   
    end;   
  end;
Top

2 楼genphone_ru : 放一个ImageList，选择三个图标   
  Tree.Images   :=   ImageList;   
  with   Tree.Items   do   
  begin   
      Clear;   {   remove   any   existing   nodes   }   
      maintree:=Add(nil,   'RootTreeNode1');   {   Add   a   root   node   }   
      MailTree.ImageIndex   :=   0;   
      MailTree.SelectedIndex   :=   0;   
      NodeCC   :=   addchild(maintree,'ll1');   
      NodeCC.ImageIndex   :=   1;   
      NodeCC.SelectedIndex   :=   1;   
      NodeCC   :=   addchild(maintree,'lll2');   
      NodeCC.ImageIndex   :=   2;   
      NodeCC.SelectedIndex   :=   2;   
  end; 



控件treeview的使用 

--------------------------------------------------------------------------------
 
http://www.pcdog.com 2004-12-18 互联网 
 
 
procedure Tcpya_app.FormCreate(Sender: TObject);
begin
  datamodule2.tree.close;
  datamodule2.tree.sql.clear;
  datamodule2.tree.sql.add('select name from plat order by name');
  datamodule2.tree.Active:=true;
  datamodule2.tree.Open;
  while not datamodule2.tree.Eof do
    begin
     with tv.Items do
  begin
     MyTreeNode1 := Add(nil,trim(datamodule2.tree.fields[0].asstring));//增加根节点
      with datamodule2 do
      begin
       child.close;
       child.SQL.Clear;
       child.SQL.Add('select comp from dalei where plat='''+Trim(datamodule2.tree.Fields[0].asstring)+''''+' order by comp');
       child.Active:=true;
       child.Open;
       While Not child.Eof do
       begin
            TV.Items.AddChild(mytreenode1,trim(child.Fields[0].AsString));
            child.Next;
            end; end;
       datamodule2.tree.Next;
   end;
   end;
end;

在添加和删除前必须保证有节点被选中(Treeview.Selected= nil)

用Add，如：MyTreeNode1 := Add(nil,trim(datamodule2.tree.fields[0].asstring));

在添加子节点时用addchild(父节点，子节点名），

但在添加大量的数据的时候 最好使用

TreeView.Items.BeginUpdate;

添加节点

TreeView.Items.EndUpdate

 

删除节点

Treeview.Selected.Delete

编辑节点内容

Treeview.Selected.EditText