IAttachCPEventArgs.ShapeToAttach

Синтаксис

ShapeToAttach: IWxShape;

Описание

Свойство ShapeToAttach возвращает объект рабочего пространства, к соединительной точке которого была присоединена конечная точка линии связи.

Пример

Sub WorkspaceBox1OnAfterMoveCP(Sender: Object; Args: IAttachCPEventArgs);

Var

s: String;

Begin

If Args.ShapeToAttach <> Null Then

s := Args.ShapeToAttach.Id;

End If;

End Sub WorkspaceBox1OnAfterMoveCP;

После выполнения события в переменной "s" будет содержаться идентификатор объекта рабочего пространства, к соединительной точке которого была присоединена конечная точка соединительной линии, сгенерировавшей событие OnAfterMoveCP.

См. также:

IAttachCPEventArgs