ОкноСообщений.ИндексКнопкиПоУмолчанию (MessageBox.DefaultButtonIndex) Свойство

Копировать

Перем ТФ, ОкноСообщений1, Рез;

Процедура ПриОткрытии() Экспорт
	// Нажмем программно Кнопка1 послав клавишу вызова 
	ТФ.ОтправитьКлавиши("п", Ложь, Ложь, Ложь);
	
	ТФ.Верхний.Текст = "ОкноСообщений1.ИндексКнопкиПоУмолчанию = " + ОкноСообщений1.ИндексКнопкиПоУмолчанию;
КонецПроцедуры

Процедура Кнопка1_Нажатие() Экспорт
	Рез = ОкноСообщений1.Показать();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

ОкноСообщений1 = ТФ.ОкноСообщений();
ОкноСообщений1.Заголовок = "Это Заголовок";
ОкноСообщений1.Сообщение = "Начало
|Это многострочное сообщение.
|Конец";
ОкноСообщений1.ИндексКнопкиПоУмолчанию = 0;
Кнопки = Новый Массив();
Кнопки.Добавить("Да");
Кнопки.Добавить("Нет");
ОкноСообщений1.Кнопки = Кнопки;

Кнопка1 = ТФ.Кнопка();
Кнопка1.Текст = "Кно_пка1";
Кнопка1.Икс = ТФ.Позиция.Центр();
Кнопка1.Игрек = ТФ.Позиция.Центр();
Кнопка1.Ширина = ТФ.Величина.Абсолютно(25);
Кнопка1.Высота = ТФ.Величина.Абсолютно(6);
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
ТФ.Верхний.Добавить(Кнопка1);

ОкноСообщений1.АвтоРазмер = Ложь;
ОкноСообщений1.Высота = 12;
ОкноСообщений1.Ширина = 80;

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, ОкноСообщений1, Рез, ИндексКнопкиПоУмолчанию;

Процедура ПриОткрытии() Экспорт
	ИндексКнопкиПоУмолчанию = ОкноСообщений1.ИндексКнопкиПоУмолчанию;

	// Нажмем программно Кнопка1 послав клавишу вызова 
	ТФ.ОтправитьКлавиши("п", Ложь, Ложь, Ложь);
КонецПроцедуры

Процедура Кнопка1_Нажатие() Экспорт
	Рез = ОкноСообщений1.Показать();
	
	ТФ.Верхний.Текст = "В окне сообщений нажата 
	|кнопка с индексом " + Рез;
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	// Нажмем программно "Да" послав клавишу вызова 
	ТФ.ОтправитьКлавиши("д", Ложь, Ложь, Ложь);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Таймер1 = ТФ.Таймер();
Таймер1.Интервал = 1000;
Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
Таймер1.Начать();

ОкноСообщений1 = ТФ.ОкноСообщений();
ОкноСообщений1.Заголовок = "Это Заголовок";
ОкноСообщений1.Сообщение = "Начало
|Это многострочное сообщение.
|Конец";
ОкноСообщений1.ИндексКнопкиПоУмолчанию = 0;
Кнопки = Новый Массив();
Кнопки.Добавить("Да");
Кнопки.Добавить("Нет");
ОкноСообщений1.Кнопки = Кнопки;

Кнопка1 = ТФ.Кнопка();
Кнопка1.Текст = "Кно_пка1";
Кнопка1.Икс = ТФ.Позиция.Центр();
Кнопка1.Игрек = ТФ.Позиция.Центр();
Кнопка1.Ширина = ТФ.Величина.Абсолютно(25);
Кнопка1.Высота = ТФ.Величина.Абсолютно(6);
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
ТФ.Верхний.Добавить(Кнопка1);

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
ИндексКнопкиПоУмолчанию = 0
, "", "!!! ") + "ОкноСообщений.ИндексКнопкиПоУмолчанию (MessageBox.DefaultButtonIndex) Свойство" + " " + ТекущаяДата() + Символы.ПС);