procedure TForm1.Button1Click(Sender: TObject); begin TreeView1.Items.item[0].EditText; end;procedure TForm1.ShowText; begin showmessage(TreeView1.Items.Item[0].text); end;procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode; var S: String); begin postmessage(self.Handle,WM_USER,0,0); end;
难道非要我用其他窗口输入,然后才能得到修改后的text吗?
begin
TreeView1.Items.item[0].EditText;
end;procedure TForm1.ShowText;
begin
showmessage(TreeView1.Items.Item[0].text);
end;procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
var S: String);
begin
postmessage(self.Handle,WM_USER,0,0);
end;
procedure ShowText(var msg:Tmessage);message WM_USER;
procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean);
begin
mynode:=node;
end;在treeview的OnEdited中,可以获得mynode.text即修改之前的text在treeview的OnEdited之后(执行后),mynode.text为修改之后的text