Delphi中TreeView的单击事件问题请教
TreeView的单击事件点击控件任何地方都可以触发,我只想在点击节点的名称文本上才触发这个单击事件,哪位可以给点代码参考下吗? 万分感谢!!! delphi treeview?菜单? treeview 菜单 单击事件
[解决办法]
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;