TV树中Expanding事件level=2的代码为何不执行！

Question

case node.level of
  0:
     ......
  1:
    begin
      ......
    end
  2:
    showmessage('Test');   //点击第三层后为什么不执行。
end;

Answer 1

//你第三层有没有子节点啊 againprocedure TForm1.TreeView1Change(Sender: TObject;
  Node: TTreeNode);
begin
  case Node.Level of
    2: ShowMessage('第三层');
  end;
end;

Answer 2

procedure TForm1.TreeClick(Sender: TObject);
var node: TTreeNode;
begin
   node:= Tree.Selected;
   if node <> nil then
   case node.level of
  0:   ;
     //......
  1:
    begin
      //......
    end;
  2:
    showmessage('Test');   //点击第三层后为什么不执行。
  end;
end;再说啊