CPIndex: Integer;
The CPIndex property returns the index of the end point of the connecting line that must be shifted.
Sub WorkspaceBox1OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
Var
i: Integer;
Begin
i := Args.CPIndex;
End Sub WorkspaceBox1OnBeforeMoveCP;
After executing the event the index of the end point of the connecting line that is planned to be shifted is contained in the "i" variable.
See also: