IWxShape.ConnectedCpShapesCount

Синтаксис

ConnectedCpShapesCount(ConnectionPointIndex: Integer): Integer;

Параметры

ConnectionPointIndex. Индекс точки соединения объекта.

Описание

Свойство ConnectedCpShapesCount возвращает количество точек соединения, соединенных с точкой соединения, заданной по индексу.

Пример

В рассматриваемом примере предполагается существование объекта 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;

В процессе выполнения примера будут поэтапно выдаваться сообщения, содержащие текст фигур, соединенных с исходным объектом.

См. также:

IWxShape