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 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, Collections, ExtCtrls, Forms, Ui, and Workspace system assemblies.

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.