ITPub博客

首页 > IT基础架构 > 网络安全 > 控件treeview的使用 (转)

控件treeview的使用 (转)

原创 网络安全 作者:amyz 时间:2007-11-10 19:18:39 0 删除 编辑
控件treeview的使用 (转)[@more@]

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)XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office: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/10752019/viewspace-981624/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7338864