HitTest(Pt: IPoint; Var Hit: HitTestResult): Integer;
Pt - точка, в которой можно получить элемент компонента.
Hit - параметр, содержащий дополнительную информацию.
Метод HitTest является расширением метода GetItemAt.
После выполнении метода параметр Hit будет содержать дополнительную информацию.
Sub DimensionTree1OnMouseDown(Sender: Object; Args: IMouseClickEventArgs);
Var
s: String;
Hit: HitTestResult;
DTI: Integer;
Begin
DTI := DimensionTree1.HitTest(Args.pPoint, Hit);
Select Case (Hit As Integer)
Case 1: s := "Nowhere";
Case 2: s := "OnItemIcon";
Case 4: s := "OnItemLabel";
Case 8: s := "OnItemIndent";
Case 16: s := "OnItemButton";
Case 32: s := "OnItemRight";
Case 64: s := "OnItemStateIcon";
Case 256: s := "Above";
Case 512: s := "Below";
Case 2048: s := "ToLeft";
Case 1024: s := "ToRight";
Else s := "OutSide";
End Select;
WinApplication.InformationBox(s);
End Sub DimensionTree1OnMouseDown;
После выполнения щелчка мышью в области элементов компонента DimensionTree1 появится сообщение, содержащее наименование области, в которой находится курсор мыши.
См. также: