Код

Перем СписокАктивИкс, ОбработчикСкриптов;


Процедура ПослеОткрытия()

	ОбъектФорма 	= СоздатьОбъект("Форма");
	СписокАктивИкс 	= СоздатьОбъект("АктивИкс");

	ОбъектФорма.УстановитьФорму(Форма);

	ОбъектФорма.СоздатьЭлементУправления(СписокАктивИкс, "фСписок");

	СписокАктивИкс.СоздатьЭУ("MSComCtlLib.TreeCtrl");
	СписокАктивИкс.Объект.LineStyle=1;
	СписокАктивИкс.Объект.Style=7;
	СписокАктивИкс.Объект.Indentation=0;
	СписокАктивИкс.Объект.HideSelection = 0;
	СписокАктивИкс.Объект.OLEDragMode = 1;
	СписокАктивИкс.Объект.OLEDropMode = 1;

	ОбработчикСкриптов = СоздатьОбъект("MSScriptControl.ScriptControl");
	ОбработчикСкриптов.Language="vbscript";
	ОбработчикСкриптов.AddObject("TreeView",СписокАктивИкс.Объект);

	Корень = ОбработчикСкриптов.Eval("TreeView.Nodes.Add(,4, ,""Корень"")");

	СписокАктивИкс.Объект.Nodes.Add(Корень, 4, "Узел1", "Узел 1");
	СписокАктивИкс.Объект.Nodes.Add(Корень, 4, "Узел2", "Узел 2");

КонецПроцедуры	// ПослеОткрытия



Процедура фСписок_MouseDown(Кнопка, Шифт, Х, У)

	Попытка
		СписокАктивИкс.Объект.SelectedItem = СписокАктивИкс.Объект.HitTest(Х, У);
	Исключение
		Сообщить("Не удалось спозиционироваться на узле по координатам Х=" + Х + " У = " + У);
	КонецПопытки;

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