Sub OnAfterMoveCP(Sender: Object; Args: IAttachCPEventArgs);
Begin
//set of operators;
End Sub OnAfterMoveCP;
Sender. Parameter that returns the component that has generated the event.
Args. Parameter that enables the user to determine event parameters.
The OnAfterMoveCP method implements the event that occurs after shifting one of the end points of the connecting line.
End points of the connecting lines can be shifted if the active tool of the workspace is Pointer.
Executing the example requires a form, the WorkspaceBox component on this form and a data source for WorkspaceBox. The specified procedure handles the OnAfterMoveCP event.
Sub WorkspaceBox1OnAfterMoveCP(Sender: Object; Args: IAttachCPEventArgs);
Var
i: Integer;
Begin
If Args.ShapeToAttach <> Null Then
i := Args.CPIndexToAttach;
End If;
End Sub WorkspaceBox1OnAfterMoveCP;
On occurring the event the "i" variable contains index of the connecting point of workspace object, to which the end point of the connecting line is connected.
See also: