Delphi TreeView的GetHitTestInfoAt()方法

找的一篇英文资料：

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