TabObjectChangeEventArgs.CreateObjectChangeArgs

Синтаксис

CreateObjectChangeArgs(TabSheet: ITabSheetBox; Object: ITabObject; Type: TabObjectChangeType);

Параметры

TabSheet. Компонент, для которого генерируется событие;

Object. Объект, для которого генерируется событие;

Type. Тип изменения, которое происходит с объектом.

Описание

Конструктор CreateObjectChangeArgs создаёт аргумент события, возникающего при изменении объекта.

Комментарии

По умолчанию аргументы события генерируются автоматически при наступлении события. Конструктор требуется для вызова события из прикладного кода.

Пример

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

  1. TabSheetBox с идентификатором «TabSheetBox1». Для данного компонента должен быть назначен обработчик события OnAfterObjectChange.

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

Sub UserProc;
Var
    Tab: ITabSheet;
    Object: ITabObject;
    Argument: TabObjectChangeEventArgs;
Begin
    Tab := TabSheetBox1.Source.GetTabSheet;
    Object := Tab.Objects.Item(0);
    Argument := New TabObjectChangeEventArgs.CreateObjectChangeArgs(TabSheetBox1, Object, TabObjectChangeType.Angle);
    TabSheetBox1.OnAfterObjectChange(TabSheetBox1, Argument);
End Sub UserProc;

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

См. также:

TabObjectChangeEventArgs