Дерево.ПослеРедактированияНадписи (TreeView.AfterLabelEdit) Свойство

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

Перем Ф;

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

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

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

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

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

Перем Ф;

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

ПодключитьВнешнююКомпоненту("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.Активизировать();

Если Ф.ПлатформаWin Тогда
	Узел2.НачатьРедактирование();
	Ф.ОтправитьКлавиши("{DEL}");
	Приостановить(2000);
	Ф.ОтправитьКлавиши("Узел0");
	Приостановить(2000);
	Ф.ОтправитьКлавиши("{ENTER}");
	Приостановить(2000);

	Сообщить(?(Узел2.Текст = "Узел2", "", "!!! ") + "Дерево.ПослеРедактированияНадписи (TreeView.AfterLabelEdit) Свойство" + " " + ТекущаяДата());
Иначе
	Сообщить(?(Истина, "", "!!! ") + "Дерево.ПослеРедактированияНадписи (TreeView.AfterLabelEdit) Свойство" + " " + ТекущаяДата());
КонецЕсли;