怎样才能实现类似资源管理器中“新建文件夹”的功能？

Question

怎样才能实现类似资源管理器中“新建文件夹”的功能？要求：窗口中有一个TreeView和一个Button，当按下Button后，在TreeView中增加一个Node，同时编辑Node的Text，然后在C盘创建一个以Text内容为名的目录。Button的相关代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  TreeNode:TTreeNode;
begin
  TreeNode:=TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode,'Name');
  TreeNode.EditText;
  CreateDir('c:\'+TreeNode.Text);
end;现在的问题是不管新增的Node的Text的内容是什么，都只创建一个“C:\Name\”的目录，请问怎样才能实现该功能，也就是类似资源管理器中“新建文件夹”的功能？

Answer 1

CreateDir('c:\'+TreeNode.Text);放在Tree的OnEdited中写：CreateDir('c:\'+S)

Answer 2

TO：ssq237712(流亡帅哥)
你的方法我在一开始就试过了，似乎不行。
如果你觉得可以，请把完整代码贴出来，一定给分。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  Node: TTreeNode;
begin
  Node := TreeView1.Items.AddChild(TreeView1.Items[0], 'name');
  Node.EditText;
end;procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
  CreateDir('d:\temp\'+S)
end;

Answer 4

TO：ssq237712(流亡帅哥)
好奇怪，一开始我试就不行，现在就可以了。多谢！TO：liu925(liu)
信誉值不是因为不结贴才低的（我的帖子结了95%以上），是因为骂了CSDN几句，才这样的。
凡是每一个解答我的问题的热心人，即使只是帮我up，我也会给分的。
不过既然你这样说，证明你不是个热心人，分数也就免了。
劝你以后不想回答就闭嘴，免的招人烦！