ConnectionPoints(Index: Integer): IGxPointF;
Index. Индекс точки соединения объекта.
Свойство ConnectionPoints возвращает координаты точек соединения объекта.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape : IWxShape;
i : Integer;
X,Y : Double;
Begin
Shape := ws.Shapes.Item(0);
For i := 0 To Shape.ConnectionPointsCount - 1 Do
X := Shape.ConnectionPoints(i).X;
Y := Shape.ConnectionPoints(i).Y;
winapplication.InformationBox("X " + X.ToString + #10 + #13 + "Y " + Y.ToString);
End For;
End Sub UserProc;
В процессе выполнения примера будут поэтапно выдаваться сообщения, содержащие координаты точек соединения объекта.
См. также: