ConnectionPoints(Index: Integer): IGxPointF;
Index. Index of object connection point.
The ConnectionPoints property returns coordinates for object connection points.
Executing the example requires an existing ws object of the IWxWorkspace type.
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;
When executing the example there will be several messages returned, containing coordinates of object connection points.
See also: