Чтение и запись.
Тип: ЭлементУправления (Control).
Возвращает или задает кнопку в форме, которая срабатывает при нажатии клавиши ВВОД.
Форма1.КнопкаПринять = Кнопка1;
Копировать Выделить всёПроцедура Кнопка1_Нажатие() Экспорт Сообщить("Кнопка1"); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Кнопка1 = Ф.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Высота = 60; Кнопка1.Ширина = 200; Кнопка1.Текст = "Нажми клавишу ENTER"; Кнопка1.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.КнопкаПринять = Кнопка1; Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПроцедура Кнопка1_Нажатие() Экспорт Сообщить("Кнопка1"); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Кнопка1 = Ф.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Высота = 60; Кнопка1.Ширина = 200; Кнопка1.Текст = "Нажми клавишу ENTER"; Кнопка1.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.КнопкаПринять = Кнопка1; Сообщить(?( Форма1.КнопкаПринять = Кнопка1 , "", "!!! ") + "Форма.КнопкаПринять (Form.AcceptButton) Свойство" + " " + ТекущаяДата());