ПолучитьСвойство(<Элемент>, <Свойство>, <Обработчик>)
Получает для указанного элемента указанное свойство, которое будет доступно для обработки в обработчике события переданном в параметре Обработчик.
Метод можно вызывать только после загрузки формы. То есть нельзя вызывать до вызова метода Форма.Открыть (Form.Open). Чтобы обойти это ограничение можно вызвать метод в пределах обработчика события формы Форма.Загружена (Form.Loaded).
ДФ.ПолучитьСвойство(Абзац1, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство"));
Копировать Выделить всёПерем ДФ, Кнопка5, Абзац1, Форма1; Процедура Свойство() Экспорт Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + " |СмещениеВерх = " + Кнопка5.СмещениеВерх + " |СмещениеШирина = " + Кнопка5.СмещениеШирина + " |СмещениеВысота = " + Кнопка5.СмещениеВысота + " |Кнопка5.Стиль.ЦветФона = " + Кнопка5.Стиль.ЦветФона + " |t = " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Кнопка5.Стиль, "ЦветФона", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); СмещениеВерх(); СмещениеШирина(); СмещениеВысота(); КонецПроцедуры Процедура Кнопка5_Нажатие() Экспорт СмещениеЛево(); СмещениеВерх(); СмещениеШирина(); СмещениеВысота(); КонецПроцедуры Процедура Форма1_РазмерИзменен() Экспорт Сообщить("Форма1_РазмерИзменен " + ДФ.АргументыСобытия.ШиринаОкна + " х " + ДФ.АргументыСобытия.ВысотаОкна); Сообщить("Форма1_РазмерИзменен " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Кнопка5_Нажатие(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll"); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.РазмерИзменен = ДФ.Действие(ЭтотОбъект, "Форма1_РазмерИзменен"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "СмещениеЛево"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеЛево"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "СмещениеВерх"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеВерх"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "СмещениеШирина"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеШирина"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "СмещениеВысота"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеВысота"); Кнопка5 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка5.Текст = "Объект"; Кнопка5.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Кнопка5.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка5_Нажатие"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Сообщить("Начальные размеры окна " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Форма1.Открыть();
ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "СмещениеЛево"));
Копировать Выделить всёПерем ДФ, Кнопка5, Абзац1, Форма1; Процедура СмещениеЛево() Экспорт Сообщить("Кнопка5.СмещениеЛево = " + Кнопка5.СмещениеЛево); Сообщить("Кнопка5.Стиль.ЦветФона = " + Кнопка5.Стиль.ЦветФона); Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + " |СмещениеВерх = " + Кнопка5.СмещениеВерх + " |СмещениеШирина = " + Кнопка5.СмещениеШирина + " |СмещениеВысота = " + Кнопка5.СмещениеВысота + " |Кнопка5.Стиль.ЦветФона = " + Кнопка5.Стиль.ЦветФона + " |t = " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура СмещениеВерх() Экспорт Сообщить("Кнопка5.СмещениеВерх = " + Кнопка5.СмещениеВерх); Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + " |СмещениеВерх = " + Кнопка5.СмещениеВерх + " |СмещениеШирина = " + Кнопка5.СмещениеШирина + " |СмещениеВысота = " + Кнопка5.СмещениеВысота + " |Кнопка5.Стиль.ЦветФона = " + Кнопка5.Стиль.ЦветФона + " |t = " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура СмещениеШирина() Экспорт Сообщить("Кнопка5.СмещениеШирина = " + Кнопка5.СмещениеШирина); Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + " |СмещениеВерх = " + Кнопка5.СмещениеВерх + " |СмещениеШирина = " + Кнопка5.СмещениеШирина + " |СмещениеВысота = " + Кнопка5.СмещениеВысота + " |Кнопка5.Стиль.ЦветФона = " + Кнопка5.Стиль.ЦветФона + " |t = " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура СмещениеВысота() Экспорт Сообщить("Кнопка5.СмещениеВысота = " + Кнопка5.СмещениеВысота); Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + " |СмещениеВерх = " + Кнопка5.СмещениеВерх + " |СмещениеШирина = " + Кнопка5.СмещениеШирина + " |СмещениеВысота = " + Кнопка5.СмещениеВысота + " |Кнопка5.Стиль.ЦветФона = " + Кнопка5.Стиль.ЦветФона + " |t = " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "СмещениеЛево")); ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "СмещениеВерх")); ДФ.ПолучитьСвойство(Кнопка5, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "СмещениеШирина")); ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "СмещениеВысота")); КонецПроцедуры Процедура Кнопка5_Нажатие() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "СмещениеЛево")); ДФ.ПолучитьСвойство(Кнопка5.Стиль, "ЦветФона", ДФ.Действие(ЭтотОбъект, "СмещениеЛево")); ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "СмещениеВерх")); ДФ.ПолучитьСвойство(Кнопка5, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "СмещениеШирина")); ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "СмещениеВысота")); КонецПроцедуры Процедура Форма1_РазмерИзменен() Экспорт Сообщить("Форма1_РазмерИзменен " + ДФ.АргументыСобытия.ШиринаОкна + " х " + ДФ.АргументыСобытия.ВысотаОкна); Сообщить("Форма1_РазмерИзменен " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Кнопка5_Нажатие(); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll"); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.РазмерИзменен = ДФ.Действие(ЭтотОбъект, "Форма1_РазмерИзменен"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "СмещениеЛево"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеЛево"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "СмещениеВерх"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеВерх"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "СмещениеШирина"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеШирина"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "СмещениеВысота"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеВысота"); Кнопка5 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка5.Текст = "Объект"; Кнопка5.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Кнопка5.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка5_Нажатие"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Сообщить("Начальные размеры окна " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Форма1.Открыть();