Дерево.ПослеВыбора (TreeView.AfterSelect) Свойство

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

Перем Ф;

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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма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.Действие;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма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 = 0, "", "!!! ") + "Дерево.ПослеВыбора (TreeView.AfterSelect) Свойство" + " " + ТекущаяДата());