CPIndex: Integer;
Свойство CPIndex возвращает индекс конечной точки соединительной линии, которую необходимо переместить.
Sub WorkspaceBox1OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
Var
i: Integer;
Begin
i := Args.CPIndex;
End Sub WorkspaceBox1OnBeforeMoveCP;
После выполнения события в переменной "i" будет содержаться индекс конечной точки линий связи, которую собираются переместить.
См. также: