ConnectedShapes(ConnectionPointIndex: Integer; ConnectedCPShapeIndex: Integer): IWxShape;
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 ConnectedShapes property enables the user to get 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 returns A or B 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, 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: