读书人

Delphi中TreeView的单击事件有关问题请

发布时间: 2013-03-06 16:20:31 作者: rapoo

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;

读书人网 >.NET

热点推荐