GetShapeByPt(Position: IGxPointF): IWxShape;
Position. Точка отображения.
Метод GetShapeByPt получает объект по заданной координате.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
PointF : IGxPointF;
Shape : IWxShape;
Begin
view := ws.Views.Item(0);
PointF := New GxPointF.Create(-66,-7);
Shape := view.GetShapeByPt(PointF);
view.ActiveShape := Shape;
End Sub UserProc;
После выполнения примера, в случае если в данной точке отображения находится объект, то он будет выделен.
См. также: