Sub OnAfterObjectChange(Sender: Object;
Args: ITabObjectChangeEventArgs);
Begin
//set of operators;
End Sub OnAfterObjectChange;
Sender. The component that generated an event.
Args. Parameters of the object, in which an event occurred.
The OnAfterObjectChange event occurs after changing an object.
Before changing an object the OnBeforeObjectChange event occurs.
Executing the example requires a form containing the components:
TabSheetBox with the TabSheetBox1 identifier.
UiReport with the UiReport1 identifier that is a data source for TabSheetBox1. UiReport1 must also be active and contain a loaded regular report with shapes on an active sheet.
The specified procedure must be assigned by handler of the OnAfterObjectChange event for the TabSheetBox1 component.
Sub TabSheetBox1OnAfterObjectChange(Sender: Object; Args: ITabObjectChangeEventArgs);
Begin
Select Case Args.Type
Case TabObjectChangeType.Angle:
Debug.WriteLine("Object '"+Args.Object.Id+"' is rotated");
Case TabObjectChangeType.Rect:
Debug.WriteLine("Object '"+Args.Object.Id+"' is moved or resized");
End Select;
End Sub TabSheetBox1OnAfterObjectChange;
After executing the example, after the object is resized, moved or rotated, the console window displays a message with object identifier and description of the operation made on the object.
See also: