开发学院软件开发Delphi 控件treeview的使用 阅读

控件treeview的使用

 2006-02-04 13:40:59 来源:WEB开发网   
核心提示: PRocedure Tcpya_app.FormCreate(Sender: TObject);begin datamodule2.tree.close; datamodule2.tree.sql.clear; datamodule2.tree.sql.add('select name from pla
 

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

Tags:控件 treeview 使用

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接