Delphi中TreeView的单击事件问题请教

Question

TreeView的单击事件点击控件任何地方都可以触发，我只想在点击节点的名称文本上才触发这个单击事件，哪位可以给点代码参考下吗？ 万分感谢！！！delphitreeview 菜单 treeview菜单单击事件

Answer 1

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
  aHitTests:THitTests;
begin
  aHitTests:=  TreeView1.GetHitTestInfoAt(X,Y) ;
  if  htOnLabel in aHitTests then
Begin
  Application.MessageBox('ok', '' ,64);
End;end;