Программный файл: ...\Samples\Solution\Controls\PgFrame\Msgbox.scx

Данный пример демонстрирует диалоговое изменение параметров соответствующего Бокса Сообщений (Message Box).

В данном примере представлено Шесть командных кнопок, которые управляют различными вариантами настройки MessageBox. Каждый из предлагаемых вариантов может быть рассмотрен (для Отладки ) на независимой Странице Формы; представляет из себя Построитель Бокса Сообщений Messagebox Builder Form.

Управляющие кнопки пронумерованы от 0, до 5, что позваляет вам выбрать Итоговый набор управляющих Кнопок Готового Бокса Сообщения. Выбранный вариант набора Кнопок определяет характеристику Итогового Диалогового Бокса.  Значение свойства ActivePage устанавливается с использованием соответствующего значения Value от Контрола OptionGroup.

Конструирование Программного Кода для итоговой функции MESSAGEBOX:

В программном коде События InteractiveChange рассматриваемого Контрола формы, с помощью стандартного Метода WriteCode выполняется динамическое построение требуемого программного Кода для итоговой функции MESSAGEBOX .

 CopyCode imageКопировать Код
* WriteCode Method
#DEFINE QM '"'

cString = '=MESSAGEBOX('
cString = cString + QM + ALLTRIM(STRTRAN(THIS.edtMessage.Value, CHR(13)+CHR(10), QM + '+CHR(13)+' + QM)) + QM + ','
cString = cString + THIS.cboIcon.Value + '+' 
cString = cString + THIS.DefaultButton + '+' 
cString = cString + ALLTRIM(STR(THIS.opgButtons.Value - 1)) + ','
cString = cString + QM + ALLTRIM(THIS.txtCaption.Value) + QM + ')'

THIS.edtCode.Value = cString

См. также