高分询问!!树行结构的问题(在线等待)

Question

onchange事件或者 单击事件都可以

Answer 1

用TreeView控件可以实现全部功能。
然后就是它的OnClick事件，一步一步查找它的节点TTreeNode.

Answer 2

procedure TForm1.Treeview1Click(sender:object);
begin
 case Treeview1.Selected.AbsoluteIndex of
 //节点的AbsoluteIndex是节点的唯一标志，从上到下，从0到n-1(n为节点个数)
 //不区分父节点还是子节点
 0:begin
   ...  //根据被点击的不同节点写不同的处理过程
   end;
 1:begin
   ...
   end;
  ...
 end; //end of case
end;