IMoveCPEventArgs.CPIndex

Syntax

CPIndex: Integer;

Description

The CPIndex property returns the index of the end point of the connecting line that must be shifted.

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

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

Sub WorkspaceBox1OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
    Var
        i: Integer;
    Begin
        i := Args.CPIndex;
End Sub WorkspaceBox1OnBeforeMoveCP;

After executing the event the i variable contains index of the end point of connecting line that will be shifted.