1С 8.3 Программное создание динамической кнопки
Данные > Примеры кода 1С > 1С 8.3 Форма, элементы
Перейти в раздел примеры кода 1С 8.3:
Пример программного создания динамических кнопок в 1С 8.3:
&НаКлиенте
Процедура ДобавитьКоманду(Команда)
ДобавитьКомандуНаСервере();
КонецПроцедуры
&НаСервере
Процедура ДобавитьКомандуНаСервере()
НомерКнопки = НомерКнопки + 1;
ИмяКоманды = "Кнопка"+Строка(НомерКнопки);
НоваяКоманда = Команды.Добавить(ИмяКоманды);
НоваяКоманда.Действие = "ВыполнитьКоманду";
НоваяКоманда.Заголовок = ИмяКоманды;
НовыйЭлемент = Элементы.Добавить("Элемент"+ИмяКоманды,
Тип("КнопкаФормы"),
ЭтаФорма.КоманднаяПанель);
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьКоманду(Команда) // Нажатие кнопки
Сообщить("Нажата кнопка: "+Команда.Имя);
КонецПроцедуры
Процедура ДобавитьКоманду(Команда)
ДобавитьКомандуНаСервере();
КонецПроцедуры
&НаСервере
Процедура ДобавитьКомандуНаСервере()
НомерКнопки = НомерКнопки + 1;
ИмяКоманды = "Кнопка"+Строка(НомерКнопки);
НоваяКоманда = Команды.Добавить(ИмяКоманды);
НоваяКоманда.Действие = "ВыполнитьКоманду";
НоваяКоманда.Заголовок = ИмяКоманды;
НовыйЭлемент = Элементы.Добавить("Элемент"+ИмяКоманды,
Тип("КнопкаФормы"),
ЭтаФорма.КоманднаяПанель);
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьКоманду(Команда) // Нажатие кнопки
Сообщить("Нажата кнопка: "+Команда.Имя);
КонецПроцедуры
Скачать обработку с примером создания дин.кнопок: https://koder.by/files/SozdanieDinamicheskojKnopki_koder_by.rar
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник