Treeview中支持鼠标点击某个节点，进行重新命名的操作，可是如何让它在代码里控制？

Question

Treeview中支持鼠标点击某个节点，进行重新命名的操作，可是如何让它在代码里控制？需要如何才能实现：通过代码控制某个特定的节点处于重命名的状态？？？？搞了半天不知如何弄，求救？

Answer 1

tvtreeview.Selected :=TvTreeView.Items.AddChild(TvTreeView.Selected,'新建文件夹');
  TvTreeView.Selected.EditText ;

Answer 2

procedure TForm1.Add1Click(Sender: TObject);
var
i : integer;
begin
if tree.Selected = nil then
  exit;
if tree.Selected.Level = 0 then
  exit;
tree.Items.AddChild(tree.Selected.Parent,'NodeName');for i := 0 to tree.Items.Count - 1 do
  begin
    if (tree.Items.Item[i].Text = 'NodeName') and (tree.Items.Item[i].Parent = tree.Selected.Parent) then
        begin
        tree.Items.Item[i].Selected := true;
        tree.Items.Item[i].EditText ;
        break;
        end;
  end;
end;procedure TForm1.Add2Click(Sender: TObject);
var
i : integer;
begin
if tree.Selected = nil then
exit;
tree.Items.AddChild(tree.Selected,'NodeName');for i := 0 to tree.Items.Count - 1 do
  begin
  if (tree.Items.Item[i].Text = 'NodeName') and (tree.Items.Item[i].Parent = tree.Selected ) then
    begin
      tree.Items.Item[i].Selected := true;
      tree.Items.Item[i].EditText;
    end;  end;
end;