Sub OnBeforeDeleteControl(Sender: Object; Args: IUiPrxControlCancelEventArgs);
Begin
//набор операторов;
End Sub OnBeforeDeleteControl;
Sub OnBeforeDeleteControl(Sender: System.Object; Args: Prognoz.Platform.Interop.Report.UiPrxControlCancelEventArgs);
Begin
//набор операторов;
End Sub OnBeforeDeleteControl;
Sender. Параметр, возвращающий компонент, сгенерировавший событие.
Args. Параметр, позволяющий определить параметры события.
Событие OnBeforeDeleteControl наступает перед удалением элемента управления.
При изменении значения элемента управления регламентного отчета наступает событие UiReport.OnChangeControlValue.
Для выполнения примера предполагается наличие формы, содержащей компонент UiReport с идентификатором «UiReport1» и визуальный компонент, в качестве источника данных для которого указан компонент «UiReport1». В качестве источника данных для компонента «UiReport1» укажите регламентный отчет, на активном листе которого размещены элементы управления.
Пример является обработчиком события OnBeforeDeleteControl для компонента «UiReport1».
Добавьте ссылку на системную сборку Ui.
Sub UiReport1OnBeforeDeleteControl(Sender: Object; Args: IUiPrxControlCancelEventArgs);
Begin
If Not WinApplication.ConfirmationBox("Удалить элемент управления?") Then
Args.Cancel := True;
End If;
End Sub UiReport1OnBeforeDeleteControl;
До удаления элемента управления будет выдан запрос на подтверждение выполняемого действия. При положительном ответе элемент управления будет удалён, при отрицательном - нет.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Ui;
…
Private Sub uiReportNet1_OnBeforeDeleteControl(Sender: System.Object;
Args: Prognoz.Platform.Interop.Report.UiPrxControlCancelEventArgs);
Var
WinAppCls: WinApplicationClassClass = New WinApplicationClassClass();
Begin
If Not WinAppCls.ConfirmationBox("Удалить элемент управления?", New IWin32WindowForeAdapter(Self)) Then
Args.Cancel := True;
End If;
End Sub;
См. также: