ConnectionPointsCount: Integer;
Свойство ConnectionPointsCount возвращает количество точек соединения объекта. Данное свойство доступно только для чтения.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
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;
В процессе выполнения примера будут поэтапно выдаваться сообщения, содержащие текст фигур, соединенных с исходным объектом.
См. также: