WorkspaceBox.OnBeforeMoveCP

Syntax

Sub OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);

Begin

//set of operators;

End Sub OnBeforeMoveCP;

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 OnBeforeMoveCP method implements the event that occurs before 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, the WorkspaceBox component on the form and a data source for WorkspaceBox. The specified procedure is a handler of the OnBeforeMoveCP event.

Sub WorkspaceBox1OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
Begin
Args.Cancel := True;
End Sub WorkspaceBox1OnBeforeMoveCP;

When the event occurs, shifting of end point of the connecting line is denied.