TabSheetBox.OnAfterObjectChange

Синтаксис Fore

Sub OnAfterObjectChange(Sender: Object;
                        Args: ITabObjectChangeEventArgs);

Begin

//набор операторов;

End Sub OnAfterObjectChange;

Синтаксис Fore.NET

Private Sub OnAfterObjectChange(Sender: System.Object;
                                Args: Prognoz.Platform.Interop.Tab.TabObjectChangeEventArgs);

Begin

//набор операторов;

End Sub;

Параметры

Sender. Компонент, сгенерировавший событие;

Args. Параметры объекта, в котором произошло событие.

Описание

Событие OnAfterObjectChange наступает после изменения объекта.

Комментарии

Перед изменением объекта наступает событие OnBeforeObjectChange.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей компоненты:

  1. TabSheetBox с идентификатором «TabSheetBox1».

  2. UiReport с идентификатором «UiReport1», являющийся источником данных для «TabSheetBox1». Также «UiReport1» должен быть активен и содержать загруженный регламентный отчет с фигурами на активном листе.

Указанная процедура должна быть назначена обработчиком события OnAfterObjectChange для компонента «TabSheetBox1».

Sub TabSheetBox1OnAfterObjectChange(Sender: Object; Args: ITabObjectChangeEventArgs);
Begin
    Select Case Args.Type
        Case TabObjectChangeType.Angle:
            Debug.WriteLine("Объект '"+Args.Object.Id+"' повернули");
        Case TabObjectChangeType.Rect:
            Debug.WriteLine("Объект '"+Args.Object.Id+"' переместили или изменили его размер"); 
    End Select;
End Sub TabSheetBox1OnAfterObjectChange;

В результате выполнения примера после изменения размера, перемещения или вращения объекта в окно консоли будет выведено сообщение, содержащее идентификатор объекта и описание действия, которое с ним было произведено.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Private Sub tabSheetBoxNet1_OnAfterObjectChange(Sender: System.Object; Args: Prognoz.Platform.Interop.Tab.TabObjectChangeEventArgs);
Begin
    Select Case Args.Type
        Case TabObjectChangeType.toctAngle:
            System.Diagnostics.Debug.WriteLine("Объект '"+Args.Object.Id+"' повернули");
        Case TabObjectChangeType.toctRect:
            System.Diagnostics.Debug.WriteLine("Объект '"+Args.Object.Id+"' переместили или изменили его размер");  
    End Select;
End Sub;

См. также:

TabSheetBox