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, по которой щелкнули мышью.
См. также: