Найти в Дзене
Мой 1С

Добавить программно кнопки на управляемую форму.

НаСервере Процедура ПриСозданииНаСервере(Отказ) // Создаётся новая команда в коллекции команд формы с уникальным именем НоваяКоманда = ЭтаФорма.Команды.Добавить("Команда1"); // Устанавливается заголовок команды, который будет отображаться на кнопке НоваяКоманда.Заголовок = "Кнопка"; // Привязывается действие, которое выполнится при нажатии на кнопку НоваяКоманда.Действие = "НажатиеКнопки"; // Добавляем элемент на форму — это будет кнопка НоваяКнопка = ЭтаФорма.Элементы.Добавить("Кнопка", Тип("КнопкаФормы"), ЭтаФорма); // Привязываем созданную команду к кнопке НоваяКнопка.ИмяКоманды = "Команда1"; КонецПроцедуры   & НаКлиенте Процедура НажатиеКнопки(Команда) // Выводим сообщение при нажатии кнопки Сообщить("Кнопка нажата"); КонецПроцедуры

НаСервере

Процедура ПриСозданииНаСервере(Отказ)

// Создаётся новая команда в коллекции команд формы с уникальным именем

НоваяКоманда = ЭтаФорма.Команды.Добавить("Команда1");

// Устанавливается заголовок команды, который будет отображаться на кнопке

НоваяКоманда.Заголовок = "Кнопка";

// Привязывается действие, которое выполнится при нажатии на кнопку

НоваяКоманда.Действие = "НажатиеКнопки";

// Добавляем элемент на форму — это будет кнопка

НоваяКнопка = ЭтаФорма.Элементы.Добавить("Кнопка", Тип("КнопкаФормы"), ЭтаФорма);

// Привязываем созданную команду к кнопке

НоваяКнопка.ИмяКоманды = "Команда1";

КонецПроцедуры

 

& НаКлиенте Процедура НажатиеКнопки(Команда)

// Выводим сообщение при нажатии кнопки

Сообщить("Кнопка нажата");

КонецПроцедуры