IWorkspaceBox.GetShapeByPt

Синтаксис

GetShapeByPt(Pt: IGxPoint): IWxShape;

Параметры

Pt. Координаты точки, находящейся в пределах фигуры, информацию о которой необходимо получить.

Описание

Метод GetShapeByPt позволяет получить информацию о фигуре по экранным координатам точки, которая находится в пределах фигуры.

Комментарии

Координаты точки должны быть заданы относительно области компонента. Если в области указанной точки отсутствует фигура, то метод возвращает значение Null.

Пример

Для выполнения примера предполагается наличие формы, расположенного на ней компонента WorkspaceBox с наименованием «WorkspaceBox1» и компонента UiWorkspaceObject, либо UiWorkspace, являющегося источником данных для «WorkspaceBox1».

Sub WorkspaceBox1OnMouseDown(Sender: Object; Args: IMouseClickEventArgs);
Var
    Pt: IGxPoint;
    Shape: IWxShape;
Begin
    Pt := Args.pPoint As IGxPoint;
    Shape := WorkspaceBox1.GetShapeByPt(Pt);
    If Shape <> Null Then
        s := Shape.Id;
    End If;
End Sub WorkspaceBox1OnMouseDown;

При наведении курсора на рабочее пространство и нажатии кнопки мыши, если курсор был наведен на какую-либо фигуру, то в переменной "s" будет содержаться идентификатор этой фигуры.

См. также:

IWorkspaceBox