Пытаюсь управлять СВОЙСТВАМИ объекта через "Структуру", в которой хранится как и сам объект, так и ссылки на его свойства. Не получается. Вот пример с АктивИксом:
Перем оФорма,АктХ;
Перем Панель,Кнопки;
//_____________________________________________________________________________
Процедура Выполнить(Знач Режим = 0)
Если Режим = 0 //через структуру
Тогда
//не работает ни при каких вариантах
Кнопки.Вторая.Значение = 1;
Иначе //без исползования структуры
//работает (естественно во всех вариантах)
Кнопки.Вторая.Кнопка.Value = 1;
КонецЕсли;
КонецПроцедуры //Выполнить
//_____________________________________________________________________________
Процедура ПриОткрытии() //предопределенная
Кнопки = СоздатьОбъект("Структура");
АктХ = СоздатьОбъект("АктивИкс");
оФорма = СоздатьОбъект("Форма");
оФорма.УстановитьФорму(Форма);
КонецПроцедуры //ПриОткрытии
//_____________________________________________________________________________
Функция ДобавитьКнопку(Идентификатор,Знач ТипКнопки = 0,Знач Значение = 0)
Индекс = Панель.Buttons.Count() + 1;
Кнопка = Панель.Buttons.Add(Индекс,Идентификатор,Идентификатор,ТипКнопки);
Кнопка.Value = Значение;
СтрКнопки = СоздатьОбъект("Структура");
//Вариант хранения по значению:
СтрКнопки.Вставить("Кнопка",Кнопка,1);
//Еще вариант, по ссылке , причем этот вариант более предпочтителен,
//т.к перем "Панель" хранится в модуле:
//СтрКнопки.Вставить("Кнопка",Панель.Buttons.Item(Индекс),0);
//Вот здесь пытаюсь передать Property кнопок, мнеяю флаги 0/1
//1 вариант:
СтрКнопки.Вставить("Значение",Кнопка.Value,0);
//2 вариант , причем этот вариант более предпочтителен,
//т.к перем "Панель" хранится в модуле:
//СтрКнопки.Вставить("Значение",Панель.Buttons.Item(Индекс).Visible,0);
//3 вариант , тоже кажется неплохо,
//т.к.ссылка на эту-же структуру:
//СтрКнопки.Вставить("Значение",СтрКнопки.Кнопка.Value,0);
Возврат СтрКнопки;
КонецФункции //ДобавитьКнопку
//_____________________________________________________________________________
Процедура ПослеСозданияФормы() //предопределенная 1С++
оФорма.СоздатьЭлементУправления(АктХ, "Панель");
АктХ.СоздатьЭУ("MSComctlLib.ToolBar.2");
Панель = АктХ.Объект;
Панель.Appearance = 1;
Панель.Style = 0;
Панель.TextAlignment = 1;
Кнопки.Вставить("Первая",ДобавитьКнопку("Первая",2,1),1);
Кнопки.Вставить("Вторая",ДобавитьКнопку("Вторая",2),1);
Кнопки.Вставить("Третья",ДобавитьКнопку("Третья",2),1);
КонецПроцедуры //ПослеСозданияФормы
Помогайте.
Страницы: [1] 
Структура. Вставить свойство по ссылке (число прочтений - 5083 )
