Код

Процедура ПослеСозданияФормы(Конт)

	л_ВМ = СоздатьОбъект("ВыполняемыйМодуль");
	Для Х = 0 По ФормаРасш.КоличествоАтрибутов() - 1 Цикл
		Об=ФормаРасш.ПолучитьАтрибут(Х);
		ТипОб=Об.Тип;
		Если ТипОб = 3  Тогда
			ИдОб   = СК(ИдЭлем);
			Если ПустаяСтрока(ИдОб)=0 Тогда
				Попытка
					Опис 	  = СтрЗаменить(Об.Описание,РазделительСтрок,"|");
					ПозПроб   = Найти(ИдОб,"_"); ПозПроб = ?(ПозПроб=0,СтрДлина(ИдОб),ПозПроб-1);
					Настройки = Лев(ИдОб,ПозПроб);
					Формула   = Об.Формула;
					Формула   = СтрЗаменить(Формула,"""","""""");

					ИмяПроц   = "НоваяКнопка_"+ИдОб;
					ИмяПерем  = "Кн"+ИдОб;
					ТекстМодуля = "
					|Перем "+ИмяПерем+";
					|
					|Процедура "+ИмяПроц+"()
					//|	Сообщить(""Создали кнопку"");
					|	Ф=СоздатьОбъект(""Форма""); Ф.УстановитьФорму(Форма);
					|	"+ИмяПерем+"=СоздатьОбъект(""КрасиваяКнопка"");
					|	Ф.СоздатьЭлементУправления("+ИмяПерем+","""+ИдОб+""");
					|	и+""");";
					Если ПустаяСтрока(Формула)=0 Тогда
						ТекстМодуля=ТекстМодуля+"
					|	"+ИмяПерем+".ФормулаКнопки="""+Формула+""";
					|";
					КонецЕсли;
					ТекстМодуля=ТекстМодуля+"
					|КонецПроцедуры
					|
					|"+ИмяПроц+"();
					|";
					л_ВМ.УстановитьМодуль(ТекстМодуля);
					л_ВМ.НазначитьКонтекст(Конт);
					л_ВМ.КомпилироватьИВыполнитьМодуль();
				Исключение
					//Сообщить(ОписаниеОшибки());
				КонецПопытки;
			КонецЕсли;
		КонецЕсли;

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

Код

//*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Процедура ОбновитьДоступностьАктивИксКнопки(Конт) Экспорт
	//Для того, чтобы изменить доступность КрасивойКнопки нужно сделать вызов этой функции в функции обновления формы
	Попытка
		Форма = Конт.Форма;
		ФормаРасш = СоздатьОбъект("РасширениеФормы");
		ФормаРасш.УстановитьФорму(Форма);
		Ф=СоздатьОбъект("Форма"); Ф.УстановитьФорму(Форма);
		Для Х = 0 По ФормаРасш.КоличествоАтрибутов() - 1 Цикл
			Об=ФормаРасш.ПолучитьАтрибут(Х);
			ТипОб=Об.Тип;
			Если ТипОб=3 Тогда
				ИдЭлем = Об.Идентификатор;
				Попытка
					ОбКнопки = Ф.ПолучитьЭлементУправления(ИдЭлем); ОбКнопки.Доступность = Об.Доступность;
				Исключение
				КонецПопытки;
			КонецЕсли;
		КонецЦикла;
	Исключение
	КонецПопытки;
КонецПроцедуры

//*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*  

Код (C++)

класс КрасиваяКнопка = КрасиваяКнопка.ert:АктивИкс {}	//// Класс для подмены стандартных кнопок на ActiveX кнопки. Заменяются только те, у которых есть идентификатор