如何动态修改TreeView？

Question

如何在TreeViwe中右击鼠标添加，修改，删除节点?

Answer 1

procedure TForm1.MenuItemAddChildClick(Sender: TObject);
begin
  TreeView1.Selected := TreeView1.Items.AddChild(TreeView1.Selected, '');
  TreeView1.Selected.EditText;
end;procedure TForm1.MenuItemAddClick(Sender: TObject);
begin
  TreeView1.Selected := TreeView1.Items.Add(TreeView1.Selected, '');
  TreeView1.Selected.EditText;
end;procedure TForm1.MenuItemEditClick(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) then TreeView1.Selected.EditText;
end;procedure TForm1.MenuItemDeleteClick(Sender: TObject);
begin
  if Assigned(TreeView1.Selected) and
    (MessageDlg('Delete?', mtWarning, [mbYes, mbCancel], 0) = mrYes) then
    TreeView1.Selected.Delete;
end;