treeview的单击问题？

Question

我在treeview的单击事件里写了处理代码，但没法屏蔽展开功能。点击展开加号的时候他也处理单击事件，怎么样让单击事件只在点击节点的时候起作用？
procedure TForm1.TreeView1Click(Sender: TObject);
begin
showmessage（treeview1.selected.text）;
end;

Answer 1

为什么要处理单击事件？用Change事件试试!

Answer 2

回复人： chinasdp() ( ) 信誉：100  2005-10-26 14:46:40  得分: 0  
 
 
   
为什么要处理单击事件？用Change事件试试!
===============================================
反對，用CHANGE事件比用Click事件處理慢很多
我用D6,D7都沒有展開節點會激活Click事件。。

Answer 3

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
if 不满足展开条件 then
  begin
    Application.MessageBox('无能展开!','提示',MB_OK+MB_Iconinformation);
    AllowExpansion:=False;
  end;
end;