IWinApplicationClass.ExclamationBox

Синтаксис Fore

ExclamationBox(Message: String; [ParentWindow: IWin32Window = Null]);

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

ExclamationBox(Message: String; ParentWindow: Prognoz.Platform.Interop.Forms.IWin32Window);

Параметры

Message. Сообщение, которое будет отображаться в окне предупреждения.

ParentWindow. Родительское окно, для которого диалог открывается модально. По умолчанию передается значение Null, при этом диалог откроется модально для текущего окна.

Описание

Метод ExclamationBox вызывает стандартный диалог с предупреждением.

Пример Fore

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
WinApplication.ExclamationBox("Настройки сохранены. Для применения настроек перезагрузите приложение.");
End Sub Button1OnClick;

При нажатии на кнопку на экран будет выведен диалог с предупреждением.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы и расположенной на ней кнопки.

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Ui;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Begin
WinAppCls.ExclamationBox("Настройки сохранены. Для применения настроек перезагрузите приложение.", New IWin32WindowForeAdapter(Self));
End Sub;