找的一篇英文资料:
The TTreeView
component includes the GetHitTestInfoAt
method for this purpose.
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
HitTests: THitTests;
begin
HitTests := TreeView1.GetHitTestInfoAt(X, Y);
if htOnButton in HitTests then
//do something
else if htOnLabel in HitTests then
//do something else
else if ......
The full list of possible members of the THitTests
set is:
- htAbove
- htBelow
- htNowhere
- htOnItem
- htOnButton
- htOnIcon
- htOnIndent
- htOnLabel
- htOnRight
- htOnStateIcon
- htToLeft
- htToRight