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;
After executing the event the identifier of the workspace object, to connecting point of which the end point of connecting line that generated the OnAfterMoveCP event was joined, will be contained in the "s" variable.
See also: