WorkspaceBox.OnAfterMoveCP

Синтаксис

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

Begin

//набор операторов;

End Sub OnAfterMoveCP;

Параметры

Sender. Параметр, возвращающий компонент, сгенерировавший событие.

Args. Параметр, позволяющий определить параметры события.

Описание

Метод OnAfterMoveCP реализует событие, происходящее после перемещения одной из конечных точек линии связи.

Комментарии

Перемещение конечных точек линий связи доступно, если активным инструментом рабочего пространства является указатель.

Пример

Для выполнения примера предполагается наличие формы, расположенного на ней компонента WorkspaceBox с наименованием WorkspaceBox1 и какого-либо источника данных для WorkspaceBox. Указанная процедура является обработчиком события OnAfterMoveCP.

Добавьте ссылки на системные сборки: Andy, Collections, ExtCtrls, Forms, Ui, Workspace.

Sub WorkspaceBox1OnAfterMoveCP(Sender: Object; Args: IAttachCPEventArgs);
Var
    i: Integer;
Begin
    If Args.ShapeToAttach <> Null Then
        i := Args.CPIndexToAttach;
    End If;
End Sub WorkspaceBox1OnAfterMoveCP;

При наступлении события в переменной i будет содержаться индекс соединительной точки объекта рабочего пространства, к которой была присоединена конечная точка соединительной линии.

См. также:

WorkspaceBox