ShapeToAttach: IWxShape;
The ShapeToAttach property returns the workspace object to connecting point of which the end point of connecting line was joined.
Sub WorkspaceBox1OnAfterMoveCP(Sender: Object; Args: IAttachCPEventArgs);
Var
s: String;
Begin
If Args.ShapeToAttach <> Null Then
s := Args.ShapeToAttach.Id;
End If;
End Sub WorkspaceBox1OnAfterMoveCP;
The identifier of the workspace object to connecting point of which the end point of connecting line that generated the OnAfterMoveCP event was joined, would be contained in the "s" variable after execution of the event.
See also: