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));//增加根節(jié)點(diǎn)
      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;

在添加和刪除前必須保證有節(jié)點(diǎn)被選中(Treeview.Selected= nil)

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

在添加子節(jié)點(diǎn)時用addchild(父節(jié)點(diǎn)，子節(jié)點(diǎn)名），

但在添加大量的數(shù)據(jù)的時候 最好使用

TreeView.Items.BeginUpdate;

添加節(jié)點(diǎn)

TreeView.Items.EndUpdate

刪除節(jié)點(diǎn)

Treeview.Selected.Delete

編輯節(jié)點(diǎn)內(nèi)容

Treeview.Selected.EditText