Дерево.ПередРазвертыванием (TreeView.BeforeExpand) Свойство

Копировать     Выделить всё

Перем Ф;

Процедура Дерево1_ПередРазвертыванием() Экспорт
	АргументыСобытия1 = Ф.ДеревоОтменаАрг();
	Сообщить("АргументыСобытия1.Действие = " + АргументыСобытия1.Действие);
	Сообщить("АргументыСобытия1.Узел.Текст = " + АргументыСобытия1.Узел.Текст);
	
	Если АргументыСобытия1.Узел.Текст = "Узел1" Тогда
		АргументыСобытия1.Отмена = Истина;
	КонецЕсли;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Текст = "Запретим разворачивать узел с именем Узел1";
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Дерево1 = Форма1.ЭлементыУправления.Добавить(Ф.Дерево());
Дерево1.ПередРазвертыванием = Ф.Действие(ЭтотОбъект, "Дерево1_ПередРазвертыванием");
Узел1 = Дерево1.Узлы.Добавить("Узел1");
Узел2 = Дерево1.Узлы.Добавить("Узел2");
Узлы1 = Узел1.Узлы;
ПодУзел1 = Узлы1.Добавить("ПодУзел1");
Узлы2 = Узел2.Узлы;
ПодУзел2 = Узлы2.Добавить("ПодУзел2");

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

Перем Ф, Узел;

Процедура Дерево1_ПередРазвертыванием() Экспорт
	АргументыСобытия1 = Ф.ДеревоОтменаАрг();
	Узел = АргументыСобытия1.Узел;
	
	Если АргументыСобытия1.Узел.Текст = "Узел1" Тогда
		АргументыСобытия1.Отмена = Истина;
	КонецЕсли;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Текст = "Запретим разворачивать узел с именем Узел1";
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();
Ф.РазрешитьСобытия = Истина;

Дерево1 = Форма1.ЭлементыУправления.Добавить(Ф.Дерево());
Дерево1.ПередРазвертыванием = Ф.Действие(ЭтотОбъект, "Дерево1_ПередРазвертыванием");
Узел1 = Дерево1.Узлы.Добавить("Узел1");
Узел2 = Дерево1.Узлы.Добавить("Узел2");
Узлы1 = Узел1.Узлы;
ПодУзел1 = Узлы1.Добавить("ПодУзел1");
Узлы2 = Узел2.Узлы;
ПодУзел2 = Узлы2.Добавить("ПодУзел2");

Узел1.Развернуть();

Форма1.Активизировать();

Сообщить(?(Узел.Текст = "Узел1", "", "!!! ") + "Дерево.ПередРазвертыванием (TreeView.BeforeExpand) Свойство" + " " + ТекущаяДата());