|
1 2 3 4 |
&НаКлиенте Процедура СоздатьКнопку(Команда) СоздатьКнопкуНаСервере(); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
&НаСервере Процедура СоздатьКнопкуНаСервере() //Добавляем форме команду Кмд = ЭтаФорма.Команды.Добавить("Команда1"); Кмд.Действие = "Тест"; Кмд.Заголовок = "Тест"; //Добавляем саму кнопку Элемент = ЭтаФорма.Элементы.Добавить("Кнопка1", Тип("КнопкаФормы"), ЭтаФорма); Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка; Элемент.ИмяКоманды = "Команда1"; КонецПроцедуры //Обработчик нажатия кнопки &НаКлиенте Процедура НажатиеКнопки() Сообщить("Кнопка создана программно"); КонецПроцедуры |