Shape: IWxShape;
The Shape property returns the workspace object, connecting line, the end point of which is shifted.
Executing the example requires a form with the WorkspaceBox component named WorkspaceBox1 and a data source for the WorkspaceBox1 component. The specified procedure is a handler of the OnBeforeMoveCP event.
Add links to the Andy, ExtCtrls, Forms, and Workspace system assemblies.
Sub WorkspaceBox1OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
Var
s: String;
Begin
s := Args.Shape.Id;
End Sub WorkspaceBox1OnBeforeMoveCP;
After executing the event the "s" variable will contain identifier of the connecting line, which end point will be shifted.
See also: