点击一个Treeview1时、能在多个edit中分别显示各值？

Question

Edit1.Text := Trim(Copy(treeview1.Selected.Text, 1, Pos(' ', treeview1.Selected.Text)));
Edit2.Text := Trim(Copy(treeview1.Selected.Text, Pos(' ', treeview1.Selected.Text), Length(treeview1.Selected.Text)));其实要实现你所说最好用节点的Data属性
由于过于麻烦，不便写出

Answer 1

太对了。我说是想学习如何用节点的DATA属性。

Answer 2

type PNode = ^TNode;
     TNode = Record
             CityCode: String;
             CityName: String;
end;var pp: PNode;//添加结点：     
Node := TreeView1.Items.AddChild(nil,'北京市');
New(pp);
pp^.CityCode := '01';
pp^.CityName := '北京市';
Node.Data := pp;//显示
Node := TreeView1.Selected;
if Node = nil then Exit;
Edit1.Text := PNode(Node.Data)^.CityCode;
Edit2.Text := PNode(Node.Data)^.CityName;
//注意释放窗口时，需要释放指针
Dispose(pp);

Answer 3

type
PMyRec = ^TMyRec;
TMyRec = record
  FName: string;
  LName: string;
end;procedure TForm1.Button1Click(Sender: TObject);var
  MyRecPtr: PMyRec;
  TreeViewIndex: LongInt;
begin
  New(MyRecPtr);
  MyRecPtr^.FName := Edit1.Text;
  MyRecPtr^.LName := Edit2.Text;
  TreeViewIndex := StrToInt(Edit3.Text);
  with TreeView1 do
  begin
    if Items.Count = 0 then
      Items.AddObject(nil, 'Item' + IntToStr(TreeViewIndex), MyRecPtr)
    else if (TreeViewIndex < Items.Count) and (TreeViewIndex >= 0) then      Items.AddObject(Items[TreeViewIndex], 'Item' + IntToStr(TreeViewIndex), MyRecPtr);
  end;
end;procedure TForm1.Button2Click(Sender: TObject);begin
  Label1.Caption := PMyRec(TreeView1.Selected.Data)^.FName + ' ' +
                  PMyRec(TreeView1.Selected.Data)^.LName;
end;************
* 努力学习 *
*   全为   *
*￥人民币￥*
************

Answer 4

//这是用于级数不是很多时,如不大于4级时用的比较好,如级数不定时可参考
//YANGYUGW(小杨)的方法procedure TForm1.Button1Click(Sender: TObject);
var
   tmpNode:TTreeNode;
begin
  case TreeView1.Selected.Level of
     0 : tmpNode:=TreeView1.Selected;
     1 : tmpNode:=TreeView1.Selected.Parent;  
     2 : tmpNode:=TreeView1.Selected.Parent.Parent;
  end
  Edit1.Text:=Trim(copy(tmpNode.Text,1,pos('',tmpNode.Text))
  Edit2.Text:=Trim(copy(tmpNode.Text,pos('',tmpNode.Text),Length 
                 (tmpNode.Text))
end;