如何给treeview中的子项添加事件？急急急急！！！

Question

我的窗口分左右两部分，左边是treeview树型结构，右边是1、2、3。。若干题目，有标号。我想给treeview中的子项添加事件，点一下窗口左边的树结构中的某子项，就可以定位到右边的某一个标号。小妹初学，问题很菜，敬请高手指点。

Answer 1

单吉事件下写：
if tvArrangeOrder.Selected.Level = 1 then
 begin
   edit1.text := tvArrangeOrder.Selected.Text;
 end;

Answer 2

在Onclick或是Onchange中
如jinjintalk(文文)所述，应该没什么问题吧
例如：
Treeview1Onchange(...)
var
 value:String ;
 i:Integer ;
begin
    if TreeView1.selected = nil then
        exit ;
    value := Treeview1.Selected.text ;
    //对返回值处理代码;
    ……    //此处不知道你右边所谓的标号用的是虾米东西，在此假设也是一棵大松树吧
    for i:=0 to TreeView2.items.count -1 do
      if TreeView2.items[i].Text = value then
      begin
         TreeView2.items[i].Selected := True ;
         exit ;
      end ;
end ;

Answer 3

白开水：谢谢你。我想问一下，TreeView1.selected = nil指的什么情况？就是没有选择树中的节点吗？如果是，就需要退出吗？exit具体什么功能？问题很菜，还请不吝赐教。

Answer 4

tvArrangeOrder是一个TreeView对象
TreeView1.Selected=nil 是指TreeView中没有节点，或者节点没有被选中。
Exit：退出当然正在执行的过程/函数，返回上一级程序。

Answer 5

pilicat(delphi迷)又看到了你的回贴，谢谢！