怎样获取TTreeView的选项改变消息！？？

Question

各位大虾好！！！小弟最近在编程的时候碰到了这样一个麻烦的问题，想在TTreeView中的选项选中时执行过程，但OnChange不合适，因为TTreeView中的各项要经常改变，TTreeNode一改变OnChange指向的过程也跟着执行了，有没有办法可以像TListView那样也有一个OnSelectItem的消息啊，当选中了TTreeView的各项才执行过程，而不是有变化也执行。请各位大虾多多指教，先谢谢了！！！刚才看到一个标题特有意思的问题:
http://community.csdn.net/Expert/TopicView1.asp?id=4216835，笑得小弟都不知道该怎么提问了，若有不清楚的还请回复一下啊，谢谢！！！

Answer 1

在mousedown或者mouseup中实现就可以了procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var node:TTreeNode;
begin
  node:=TreeView1.GetNodeAt(X,Y);
  if (node<>nil)then
  begin
    // 你的执行函数
    ShowMessage('aaaaaaaaaaaa');
  end;
end;

Answer 2

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~