1с убрать кнопку закрытия формы

Пройтись в цикле по элементам формы и кого родитель = Элементы.ФормаКоманднаяПанель, т.е. относятся элемент к данной командной панели. Сделать рекурсию, и получить вложенности. И уже выбирать, что нужно спрятать, что нет – прятать видимость.

.
МассивПодчин = новый Массив; // можно дерево сделать
ПолучитьВсеПодчин(Элементы.ФормаКоманднаяПанель, МассивПодчин)
.

Процедура ПолучитьВсеПодчин(Родитель, МассивЭлементов)
Для Каждого Элем из Элементы Цикл
Если Элем.Родитель = Родитель тогда
МассивЭлементов.Добавить(Элем);
ПолучитьВсеПодчин(Элем, МассивЭлементов);
КонецЕсли;
КонецЦикла;
КонецПроцедуры;

(17) разные вариант могут быть. к примеру, вы знаете кнопки которые надо оставить точный перечень, точно знаете их наименование. создать их список, и если получаемые кнопки не в списке, то скрываете видимость. т.е. не создаете массив, а пряма в процедуре, если полученный элемент не в списке, то прячете его видимость.

СписокНужных= новый Список; // добавляете элементы, группы если подменю к пример целое надо оставить(т.е. не надо все элементы подменю перечислять)
.
ПолучитьВсеПодчин(Элементы.ФормаКоманднаяПанель, СписокНужных)
.

Процедура ПолучитьВсеПодчин(Родитель, СписокНужных)

Для Каждого Элем из Элементы Цикл
Если Элем.Родитель = Родитель тогда
Если СписокНужных.НайтиПоЗначению(Элем) = Неопределено тогда
Элем.видимость = Ложь;
Иначе
ПолучитьВсеПодчин(Элем, МассивЭлементов);
КонецЕсли;
КонецЕсли;
КонецЦикла;

(19) не знаю я без отладки писала выше, на обработке вот попробовала все ок.. как вариант может не все виды элементов можно спрятать, можно виды эти пропустить прописать, а можно прще, через попытку сделать)

СписокНужных = новый СписокЗначений;
ПолучитьВсеПодчин(ЭтаФорма, СписокНужных);

&НаСервере
Процедура ПолучитьВсеПодчин(Родитель, СписокНужных)

Для Каждого Элем из Элементы Цикл
Если Элем.Родитель = Родитель тогда
Если СписокНужных.НайтиПоЗначению(Элем) = Неопределено тогда
Попытка
Элем.видимость = Ложь;
Исключение
КонецПопытки;
Иначе
ПолучитьВсеПодчин(Элем, СписокНужных);
КонецЕсли;
КонецЕсли;
КонецЦикла;

Источник

Понравилась статья? Поделить с друзьями:
Добавить комментарий
  • Как сделать успешный бизнес на ритуальных услугах
  • Выездной кейтеринг в России
  • Риски бизнеса: без чего не обойтись на пути к успеху
  • 1с уат складской учет
  • 1с уат мобильное приложение для водителей