我翻完了CSDN的贴子，也没有找到答案？TREEVIEW的问题，谁能帮我？？？？高分赠送

[xiaojun2000]

我想在点击'+'号时，知道具体点击了哪一个层的具体项目及索引位置，前提是可能我没有选中一层。

我试过这招不行：treeview1.select


请各位出高招.

谢谢

[TechnoFantasy]

OnExpanding事件

[xiaojun2000]

老兄：

具体怎样做呢？

能否做一个简单的例子呢？

[yang_113]

在 Onexpanding 事件中 Node.Index —— 索引
node.level—— 指出了是哪一层

[xiaojun2000]

yang_113(yang)，TechnoFantasy(www.applevb.com)　：
多谢回复

但我的要求不是这样：

例如：
+ 办公室
+ 财务部
+ 电脑部
+ 人事部

当我光标可能处在[人事部]这个位置时，我点击[财务部]前面的'+'号时，我要得到
我点击了[财务部]这一层，且取得其名称及索引。

多谢各位回复!

[xiaojun2000]

没有大虾愿意进来帮帮我?

[TechnoFantasy]

当你点击+号，会引发OnExpanding事件，事件处理函数中有一个参数Node，该参数指定
你点击地+号所在的节点，就像上面，焦点在[人事部]，当你点击[财务部]前面的'+'号
引发的OnExpanding事件函数中的Node就是[财务部]

[王集鹄]

procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);
begin
Caption := Node.Text + '[Expanded]';
end;

procedure TForm1.TreeView1Collapsed(Sender: TObject; Node: TTreeNode);
begin
Caption := Node.Text + '[Collapsed]';
end;