控件treeview的使用 (转)[@more@]

procedure Tcpya_app.FormCreate(Sender: T);

begin  datamodule2.tree.close;  datamodule2.tree..clear;  datamodule2.tree.sql.add(' 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):namespace prefix = o ns = "urn:schemas--com::office" />

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

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

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

TreeView.Items.BeginUpdate;

添加节点

TreeView.Items.EndUpdate

 

删除节点

Treeview.Selected.Delete

编辑节点内容

Treeview.Selected.EditText

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-961141/，如需转载，请注明出处，否则将追究法律责任。