Показать содержание

Report > Классы сборки Report > ReportEvents > ReportEvents.OnBeforeDeleteControl

ReportEvents.OnBeforeDeleteControl

Синтаксис Fore

Sub OnBeforeDeleteControl(Control: IPrxControl; Var Cancel: Boolean);

Begin

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

End Sub OnBeforeDeleteControl;

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

Sub OnBeforeDeleteControl(Control: IPrxControl; Var Cancel: Boolean);

Begin

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

End Sub OnBeforeDeleteControl;

Параметры

Control. Элемент управления, сгенерировавший событие.

Cancel. Параметр, отвечающий за удаление элемента управления.

Описание

Метод OnBeforeDeleteControl реализует событие, происходящее перед удалением элемента управления.

Комментарии

Допустимые значения параметра Cancel:

• True. Элемент управления будет удалён;

• False. Элемент управления не будет удалён.

Для реализации события, происходящего при изменении значения элемента управления регламентного отчета, используйте метод ReportEvents.OnChangeControlValue.

Пример Fore

Указанный класс является обработчиком событий регламентного отчёта.

Добавьте ссылку на системную сборку Ui.

Class EventsClass: ReportEvents
Public Sub OnBeforeDeleteControl(Control: IPrxControl; Var Cancel: Boolean);
Begin
    If Not WinApplication.ConfirmationBox("Удалить элемент управления?") Then
        Cancel := True;
    End If;
End Sub OnBeforeDeleteControl;
End Class EventsClass;

До удаления элемента управления будет выдан запрос на подтверждение выполняемого действия. При положительном ответе элемент управления будет удалён, при отрицательном - нет.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Ui;
Imports Prognoz.Platform.Forms.Net;
…
Public Class EventsClass: PrxForeNetReportUserEventsClass
Public Override Sub OnBeforeDeleteControl(Control: IPrxControl; Var Cancel: Boolean);
Var
    WinAppCls: WinApplicationClassClass = New WinApplicationClassClass();
Begin
    If Not WinAppCls.ConfirmationBox("Удалить элемент управления?", New IWin32WindowForeAdapter(Self)) Then
        Cancel := True;
    End If;
End Sub OnBeforeDeleteControl;
End Class EventsClass;

См. также:

ReportEvents