不用鼠标如何更改treeview的节点文字？

[myboor]

我们知道，用鼠标轻点一下treeview的某个节点，节点会直接进入编辑状态，但如果没有鼠标怎么办呢？我做了一个rename按钮，但不知用什么语句可以使之进入编辑状态，求各位大虾帮忙啊！。。。。。。。。。

[rongrongGsr]

Treeview1.Selected.Text:=yourText;

[抱朴守拙]

Treeview1.Selected.EditText;

Treeview1.Selected.Text:=yourText;

[S.F.]

你还可以捕捉相应事件

[heartache]

var s:ttreenode;
begin
s:=treeview1.Selected;
s.EditText;
s.text:='sometext';
end;

[myboor]

各位说的都对，可惜答非所问，我想问的是如何进入像鼠标点击一样的编辑，不过，还是谢谢以上几位

[myboor]

谢谢dulei115() ,我曾设置edittext:=true;结果不行，谢谢了！结贴！

[Ascn]

楼主为什么说不行呢？
请看如下代码，肯定行的呀：

procedure TForm1.Button1Click(Sender: TObject);
var
tpn: TTreeNode;
begin
tpn := TreeView1.Selected; { 获得当前节点 }
TreeView1.ReadOnly := False; { 是不是这个属性为True？这里设置一下确保可以编辑 }
tpn.EditText; { EditText是个方法，怎么能用EditText := True之类的代码呢？ }
end;

上面这个是在按钮中写的代码，你可以做成快捷键来触发，比如资源管理器那样的按F2键执行重命名操作。

[dulei115]

Treeview1.Selected.EditText;