ConnectedCpShapesCount(ConnectionPointIndex: Integer): Integer;
ConnectionPointIndex. Index of object connection point.
The ConnectedCpShapesCount property returns the number of connection points connected with the connection point defined by the index.
Executing the example requires an existing ws object of the IWxWorkspace type.
Sub UserProc;
Var
ws: IWxWorkspace;
Shape, CSh : IWxShape;
i, j : 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
CSh := Shape.ConnectedShapes(i,j);
winapplication.InformationBox(CSh.Text);
End For;
End If;
End For;
End Sub UserProc;
When executing the example there will be several messages returned, containing text of shapes, connected with the original object.
See also: