Чтение и запись.
Тип: Действие (Action).
Возвращает или задает код для выполнения, когда значение свойства Помечен (Checked) изменилось.
Флажок1.ПометкаИзменена = Ф.Действие(ЭтотОбъект, "Флажок1_ПометкаИзменена");
Копировать Выделить всёПерем Ф, Флажок1; Процедура Флажок1_ПометкаИзменена() Экспорт Если Флажок1.Помечен = Истина Тогда Флажок1.ЦветФона = Ф.Цвет("Васильковый"); Иначе Флажок1.ЦветФона = Ф.Цвет("Фиолетовый"); КонецЕсли; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Флажок1 = Форма1.ЭлементыУправления.Добавить(Ф.Флажок()); Флажок1.Границы = Ф.Прямоугольник(10, 10, 100, 25); Флажок1.Текст = "Флажок1"; Флажок1.ВыравниваниеПометки = Ф.ВыравниваниеСодержимого.СерединаЛево; Флажок1.Оформление = Ф.Оформление.Кнопка; Флажок1.ПометкаИзменена = Ф.Действие(ЭтотОбъект, "Флажок1_ПометкаИзменена"); Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПерем Ф, Флажок1; Процедура Флажок1_ПометкаИзменена() Экспорт Если Флажок1.Помечен = Истина Тогда Флажок1.ЦветФона = Ф.Цвет("Васильковый"); Иначе Флажок1.ЦветФона = Ф.Цвет("Фиолетовый"); КонецЕсли; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Флажок1 = Форма1.ЭлементыУправления.Добавить(Ф.Флажок()); Флажок1.Границы = Ф.Прямоугольник(10, 10, 100, 25); Флажок1.Текст = "Флажок1"; Флажок1.ВыравниваниеПометки = Ф.ВыравниваниеСодержимого.СерединаЛево; Флажок1.Оформление = Ф.Оформление.Кнопка; Флажок1.ПометкаИзменена = Ф.Действие(ЭтотОбъект, "Флажок1_ПометкаИзменена"); Сообщить(?( Флажок1.ПометкаИзменена.ИмяМетода = "Флажок1_ПометкаИзменена" , "", "!!! ") + "Флажок.ПометкаИзменена (CheckBox.CheckChanged) Свойство" + " " + ТекущаяДата());