如何用代码使TreeView中的结点处于编辑状态

[lcy5415]

查了以前的贴子,但不知道怎么做,我才从net转过来,请给点细致的代码,谢谢!

[cncharles]

procedure TForm1.btn1Click(Sender: TObject);
//tv1为TreeView
begin
//tv1.Selected.EditText;//如果你要自写手工输入去掉//
tv1.Selected.Text:='you want'; //如果你想直接赋值
end;

[leonkim]

应该是用
TVM_EDITLABEL消息(commctrl单元中)来完成的。

[leonkim]

PostMessage(tv.Items[0].handle,TVM_EDITLABEL,0,integer(tv.Items[1].itemid));

接分

[leonkim]

楼主要记着在发送此消息前，tv.setfocus;呵呵

[lcy5415]

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode; var S: String);
var
str: string;
NewNode: TTreeNode;
begin
NewNode:= TreeView1.Selected;
NewNode.Selected := true;
NewNode.Focused := true;
//下面这个地方不会做
str:=,,,,//想在这得到新修改后的值，来提交到数据库,这是这总是不对

end;

[一根老玉米]

str:=tv1.Selected.EditText

[leonkim]

procedure TForm1.tvEdited(Sender: TObject; Node: TTreeNode; var S: String);
begin
showmessage(S);//S就是新的字符，Node.Text是原来的字符
end;

//楼主的问题好像不是这样啊

如何用代码使TreeView中的结点处于编辑状态
做法是：
procedure TForm1.Button2Click(Sender: TObject);
begin
tv.SetFocus;//tv是TTreeView控件
PostMessage(tv.Items[0].handle,TVM_EDITLABEL,0,integer(tv.Items[1].itemid));
end;