请问各位，那有TreeView中手工增删结点的范例下载

Question

最好能与数据库结合

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  TreeView.Items.AddChild(TreeView.Selected,'newNode');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  TreeView.Items.Delete(TreeView.Selected);
end;{注：选中结点后,按键(Button1或Button2)增删结点,不知是不是楼主要的?}

Answer 2

一个增加的例子procedure TForm1.N1Click(Sender: TObject);
var
emptynode: TTreeNode;
begin
  if treeview1.Selected.Parent=nil then
  begin
  emptynode:=treeview1.Items.Add(nil,'省分');
  emptynode:=treeview1.Items.AddChild(emptynode,'城市');
  treeview1.Items.AddChild(emptynode,'新酒店名称')
  end
  else if treeview1.Selected.HasChildren=false then
  begin
  treeview1.Items.AddChild(treeview1.Selected.Parent,'新酒店名称');
  end
  else
  begin
  emptynode:=treeview1.Items.AddChild(treeview1.Selected.Parent,'城市');
  treeview1.Items.AddChild(emptynode,'新酒店名称')
  end;
end;