Sub OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
Begin
//set of operators;
End Sub OnBeforeMoveCP;
Sender. Parameter returning the component that has generated the event.
Args. Parameter allowing to determine event parameters.
The OnBeforeMoveCP method implements the event that occurs before shifting one of the end points of the connecting line.
End points of the connecting lines can be shifted if the active tool of the workspace is Pointer.
Executing the example requires a form, the WorkspaceBox component on this 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;
On occurring the event shifting of end point of the connecting line is disabled.
See also: