IMoveCPEventArgs.Shape

Syntax

Shape: IWxShape;

Description

The Shape property returns the workspace object, connecting line, the end point of which is shifted.

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

Sub WorkspaceBox1OnBeforeMoveCP(Sender: Object; Args: IMoveCPEventArgs);
    Var
        s: String;
    Begin
        s := Args.Shape.Id;
End Sub WorkspaceBox1OnBeforeMoveCP;

After executing the event the "s" variable will contain identifier of the connecting line, which end point will be shifted.

See also:

IMoveCPEventArgs