如何用treeview来做界面的切换啊

[luoman0510]

点激treeview的内容，使代表其点中内容的界面显示出来，其他的不显示，treeview有相同的内容，怎么区分啊，

[brightyang]

up

[wywry]

//定义自定义类型
type
 PMyData=^TMyData;
 TMyData=Record
  id:integer;
  Name:String[20];
  //...
 End;

//加入节点

procedure AddNodes;
var
 i:integer;
 Item:TListItem;
 MyData:PMyData;
begin
 for I := 0 to 20 do
  begin
    Item:=ListView1.Items.Add;
    item.Caption:=inttostr(random(100)+18);
    New(MyData);
    MyData^.id:=strtoint(item.Caption)+10;
    MyData^.Name:='Good'+inttostr(strtoint(item.Caption)+20);
    item.Data:=MyData;
  end;
end;

//这样就可以根据节点的值进行一判断

 with PMyData(ListView1.Selected)^ do
 begin
  Edit1.Text:=IntToStr(ID);
  Edit2.Text:=Name
 end;