ConnectedCPs(ConnectionPointIndex: Integer; ConnectedCPShapeIndex: Integer): Integer;
ConnectionPointIndex. Index of source object connection point (shown as a red point on the image).
ConnectedCPShapeIndex. Index of the shape linked to the object in ConnectionPointIndex (the figure shows two such shapes: A and B).
The ConnectedCP property returns an index for a connection point of a shape connected with the source object in the defined point.
ConnectionPointIndex (connection point) is displayed in red. There are two shapes, connected with the object in this point: A and B. The property will return index 0 for both shapes.
Indexes of the original object connection points are displayed in black.
Connection point indexes of shapes, connected with an object in the ConnectionPointIndex point, are displayed in blue and green.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape: IWxShape;
i, j, ISh : Integer;
Begin
Shape := ws.Shapes.Item(0);
For i := 0 To Shape.ConnectionPointsCount-1 Do
If Shape.ConnectedCpShapesCount(i) > 0 Then
For j := 0 To Shape.ConnectedCpShapesCount(i)- 1 Do
ISh := Shape.ConnectedCPs(i,j);
winapplication.InformationBox("Connection point index " + ISh.ToString + " for an object with ConnectedCPShapeIndex =" + j.ToString);
End For;
End If;
End For;
End Sub UserProc;
When executing the example there will be several messages returned, containing a connection point index of a shape, connected with the original object in the ConnectionPointIndex point.
See also: