HitTest(X: Integer; Y: Integer): LanerBoxArea;
X. Горизонтальная координата.
Y. Вертикальная координата.
Метод HitTest возвращает область компонента по указанным координатам.
Координаты задаются относительно верхнего левого угла компонента.
Для выполнения примера предполагается наличие формы, расположенного на ней компонента LanerBox с наименованием «LanerBox1» и компонента UiErAnalyzer, являющегося источником данных для LanerBox. В UiErAnalyzer должна быть загружена рабочая книга базы данных временных рядов. Также на форме присутствует компонент Memo с наименованием «Memo1».
Указанная процедура является обработчиком события OnMouseDown для LanerBox.
Sub LanerBox1OnMouseDown(Sender: Object; Args: IMouseClickEventArgs);
Var
BoxArea: LanerBoxArea;
Point: IPoint;
Begin
Point := Args.pPoint;
BoxArea := LanerBox1.HitTest(Point.X, Point.Y);
Select Case BoxArea
Case LanerBoxArea.None: Memo1.Lines.Add("Область не определена");
Case LanerBoxArea.MethodsBar: Memo1.Lines.Add("Панель моделирования");
Case LanerBoxArea.Toolbar: Memo1.Lines.Add("Панель инструментов");
Case LanerBoxArea.Tabsheet: Memo1.Lines.Add("Таблица данных");
Case LanerBoxArea.DimPanel: Memo1.Lines.Add("Панель размерностей");
End Select;
End Sub LanerBox1OnMouseDown;
После выполнения примера в «Memo1» будет выведено наименование области LanerBox, по которой щелкнули мышью.
См. также: