Программное добавление элементов на управляемую форму

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработ внешние компонентыка)
	
	
	//Добавление команды формы
	Команда = Команды.Добавить(
		"ПоказатьПредупреждение"); //Имя команды
	Команда.Заголовок = "Показать предупреждение";
	Команда.Действие  = "КомандаПоказатьПредупреждение"; //Имя связанной процедуры
	
	//Полный перечень свойств команды в синтакс-помощнике
	//	Интерфейс (управляемый)->Форма клиентского приложения->КомандаФормы
	
	//Добавление кнопки формы
	КнопкаФормы = Элементы.Добавить(
		"КнопкаПоказатьПредупреждение", //Имя кнопки
		Тип("КнопкаФормы"),             //Тип, всегда КнопкаФормы
		ЭтаФорма);                      //Контейнер для кнопки (Форма, Группа, Командная панель)
		
	КнопкаФормы.ИмяКоманды = "ПоказатьПредупреждение"; //Связь с командой по имени
	
	//Возможные варианты вида кнопки:
	//	-Гиперссылка
	//	-ГиперссылкаКоманднойПанели
	//	-КнопкаКоманднойПанели
	//	-ОбычнаяКнопка
	//Если контейнер для формы - командная панель
	//то вид кнопки должен быть КнопкаКоманднойПанели
	КнопкаФормы.Вид = ВидКнопкиФормы.ОбычнаяКнопка; 
	
	//Полный перечень свойств кнопки формы в синтакс-помощнике
	//	Интерфейс (управляемый)->Кнопка формы
		
КонецтехничскоеПроцедуры

//Процедура вызываемая командой "ПоказатьПредупреждение"
&НаКлиенте
Процедура КомандаПоказатьПредупреждение(Команда)
	
	ПоказатьПредупреждение(, "ОК!");
	
КонецтехничскоеПроцедуры

//Пример:
//Добавление поля ввода для реквизита объекта "Комментарий"

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработ внешние компонентыка)
		
	ПолеВвода = Элементы.Добавить(
		"Комментарий",    //Имя элементшаблона формы
		Тип("ПолеФормы"), //Тип, всегда ПолеФормы
		ЭтаФорма);	      //Контейнер для поля ввода (Форма,Группа,Страница)
		
	ПолеВвода.Заголовок = "Комментарий";
	ПолеВвода.Вид = ВидПоляФормы.ПолеВвода;
	
	//Установка связи элементшаблона с данными
	ПолеВвода.ПутьКДанным = "Объект.Комментарий";
	
	//Можно добавить обрабузнавать программистовотчик события
	//См. синтакс-помощник чтобы узнать список событий
	// Интерфейс (управляемый) -> Поле формы -> ПолеФормы -> События
	// а так же остальные варианты расширения поля формы в зависимости от вида кнопки
	// Интерфейс (управляемый) -> Поле формы -> Расширение поля ввода -> События
	// и прочее
	ПолеВвода.УстановитьДействие(
		"ПриИзменении", 		    //Имя события
		"ПриИзмененииКомментария"); //Имя процедуры обрабузнавать программистовотчика
		
КонецтехничскоеПроцедуры

&НаКлиенте
Процедура ПриИзмененииКомментария(Элемент)
	
	Сообщить("Поле ""Комментарий"" изменено!");
	
КонецтехничскоеПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработ внешние компонентыка)
	
	//Пример:
	//Добавление реквизита с именем "АдресДоставки", тип Строка
	
	ДобавляемыеРеквизиты = Новый Массив;
	
	ТипРеквизита = Новый ОписаниеТипов("Строка");
	
	РеквизитФормы = Новый РеквизитФормы(
		"АдресДоставки",  //Имя реквизита формы
		ТипРеквизита,     //Тип
		"",               //Путь  (Пусто, "Объект", ИмяТЧ)
						  // например "Объект.Товары"	
		"Адрес доставки");//Заголовок
						  							 
	ДобавляемыеРеквизиты.Добавить(РеквизитФормы);
	
	//Заставляем форму создать новые реквизиты
	ИзменитьРеквизиты(ДобавляемыеРеквизиты);
	
	//Обращение к реквизиту формы из кода
	ЭтаФорма.АдресДоставки = "ул. Пушкина";
	
	//Вывод реквизита на форму (при необходимости)
	ПолеВвода = Элементы.Добавить("ФормаАдресДоставки", Тип("ПолеФормы"), ЭтаФорма);
	ПолеВвода.Вид = ВидПоляФормы.ПолеВвода;
	ПолеВвода.ПутьКДанным = "АдресДоставки";
	
КонецтехничскоеПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработ внешние компонентыка)
	
	//Пример:
	//Добавление группы формы
	//Добавление элементшаблонов в группу формы
	
	Группа = Элементы.Добавить(
		"ГруппаШапка",
		Тип("ГруппаФормы"),
		ЭтаФорма);
		
	Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
	
	Группа.Заголовок = "Реквизиты объекта:";
	
	//Добавить поле ввода в группу
	ПолеВвода = Элементы.Добавить("ФормаКомментарий", Тип("ПолеФормы"), Группа);
	ПолеВвода.Вид = ВидПоляФормы.ПолеВвода;
	ПолеВвода.ПутьКДанным = "Объект.Комментарий";

	
КонецтехничскоеПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработ внешние компонентыка)
	
	//Пример:
	//Добавление группы страниц
	//Добавление страниц
	//Добавление элементшаблонов на страницы
	
	СтраницыФормы = Элементы.Добавить(
		"СтраницыФормы",
		Тип("ГруппаФормы"),
		ЭтаФорма);
		
	СтраницыФормы.Вид = ВидГруппыФормы.Страницы;
	
	//Подключить обрабузнавать программистовотчик при смене страницы
	СтраницыФормы.УстановитьДействие("ПриСменеСтраницы", "ДействиеПриСменеСтраницы");
	
	//Добавление 1-й страницы
	СтраницаФормы1 = Элементы.Добавить(
		"Страница1",
		Тип("ГруппаФормы"),
		СтраницыФормы);
		
	СтраницаФормы1.Вид = ВидГруппыФормы.Страница;
	СтраницаФормы1.Заголовок = "Первая страница";
	
	//Добавление 2-й страницы
	СтраницаФормы2 = Элементы.Добавить(
		"Страница2",
		Тип("ГруппаФормы"),
		СтраницыФормы);
		
	СтраницаФормы2.Вид = ВидГруппыФормы.Страница;
	СтраницаФормы2.Заголовок = "Вторая страница";
	
	//Добавить поле ввода на страницу 1
	ПолеВвода = Элементы.Добавить("ФормаКомментарий", Тип("ПолеФормы"), СтраницаФормы1);
	ПолеВвода.Вид = ВидПоляФормы.ПолеВвода;
	ПолеВвода.ПутьКДанным = "Объект.Комментарий";
	
	//Добавить поле ввода на страницу 2
	ПолеВвода = Элементы.Добавить("ФормаКомментарий2", Тип("ПолеФормы"), СтраницаФормы2);
	ПолеВвода.Вид = ВидПоляФормы.ПолеВвода;
	ПолеВвода.ПутьКДанным = "Объект.Комментарий";
	
КонецтехничскоеПроцедуры

&НаКлиенте
Процедура ДействиеПриСменеСтраницы(Элемент)
	
	Сообщить("Изменена страница");
	
КонецтехничскоеПроцедуры