ConnectionPointsCount: Integer;
The ConnectionPointsCount property returns the number of object connection points. This property is read-only.
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: