控制元件treeview的使用 (轉)

控制元件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