treeview问题！

Question

如何将treeview中的子节点的值取出，放在一个编辑框中！

Answer 1

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  Edit1.Enabled := Assigned(TTreeView(Sender).Selected);
  if not Edit1.Enabled then Exit;
  Edit1.Enabled := True;
  Edit1.Text := TTreeView(Sender).Selected.Text;
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
  if not Assigned(TreeView1.Selected) then Exit;
  TreeView1.Selected.Text := TEdit(Sender).Text;
end;

Answer 2

Procedure GetNodeToMemo(PNode : TTreeNode;vTextCon : TMemo);
var
  vIndex : Integer;
begin
  if  PNode.HasChildren then
  for vIndex := 0 to PNode.Count do
    if PNode.Item[vIndex].HasChildren then
       GetNodeToMemo(PNode.Item[vIndex]) else
       vTextXCon.Add(pNode.Item[vIndex].Text)
end;
没有测试，直接写上的，你可以测试一下；_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……

Answer 3

piu....
伴水
嘿嘿，这段时间闲下来了？_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……

Answer 4

Procedure GetNodeToMemo(PNode : TTreeNode;vTextCon : TMemo);
var
  vIndex : Integer;
begin
  if  PNode.HasChildren then
  for vIndex := 0 to PNode.Count do
    if PNode.Item[vIndex].HasChildren then
       GetNodeToMemo(PNode.Item[vIndex]) else
       //////////////////改一下 GetNodeToMemo(PNode.Item[vIndex]vTextCon) else
       vTextXCon.Add(pNode.Item[vIndex].Text)
end;TreeView
  if Not Assigned(TTreeView(Sender).Selected) then
     Exit;
  GetNodeToMemo(TTreeView(Sender).Selected , Memox);_____________________________________________________________________暮春三月,羊欢草长,天寒地冻,问谁饲狼?人心怜羊,狼心独怆,天心难测,世情如
霜……

Answer 5

http://expert.csdn.net/Expert/topic/2297/2297760.xml?temp=.4412653http://expert.csdn.net/Expert/topic/2296/2296121.xml?temp=.2295954