WorkspaceBox.OnAfterMoveCP

Syntax

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

Begin

//set of operators;

End Sub OnAfterMoveCP;

Parameters

Sender. The parameter that returns the component that generated the event.

Args. The parameter that enables the user to determine event parameters.

Description

The OnAfterMoveCP method implements the event that occurs after shifting one of the end points of the connecting line.

Comments

End points of the connecting lines can be shifted if the active tool of the workspace is Pointer.

Example

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 OnAfterMoveCP event.

Add links to the Andy, Collections, ExtCtrls, Forms, Ui, and Workspace system assemblies.

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.