Show(Text: String; Caption: String; Buttons: WebMessageBoxButtons; Icon: WebMessageBoxIcon): WebDialogResult;
Text. Текст, отображаемый в диалоге;
Caption. Заголовок диалога;
Buttons. Набор кнопок, который будет доступен пользователю;
Icon. Тип пиктограммы, отображаемый в диалоге.
Метод Show инициализирует диалог в соответствии с заданными параметрами и возвращает результат действий пользователя.
Метод инициализирует диалоги различного назначения и содержания с соответствии с заданными параметрами.
Указанная функция демонстрирует вызов различных диалогов в зависимости от значения, передаваемого во входном параметре. Результатом функции будет результат закрытия диалога.
Function CheckValue(Value: Integer): WebDialogResult;
Var
Result: WebDialogResult;
Begin
If Value <= 20 Then
Result := WebMessageBox.Show("Значение в пределах нормы", "Информация", WebMessageBoxButtons.Ok, WebMessageBoxIcon.Information);
Elseif (Value > 20) and (Value <= 60) Then
Result := WebMessageBox.Show("Значение незначительно превышает норму. Продолжить?", "Оповещение",
WebMessageBoxButtons.YesNo, WebMessageBoxIcon.Question);
Elseif (Value > 60) and (Value <= 100) Then
Result := WebMessageBox.Show("Значение значительно превышает норму. Продолжение может нарушить функционирование системы!", "Предупреждение",
WebMessageBoxButtons.YesNoCancel, WebMessageBoxIcon.Warning);
Else
Result := WebMessageBox.Show("Критическое значение. Процесс будет остановлен", "Ошибка", WebMessageBoxButtons.Ok, WebMessageBoxIcon.Error);
End If;
Return Result;
End function CheckValue;
См. также: