Код

Сервис=СоздатьОбъект("Сервис");
глДопМодуль1=Сервис.ДобавитьГлобальныйМодуль("...");
глДопМодуль2=Сервис.ДобавитьГлобальныйМодуль("...");
...
и т.д. 

Код

Сервис1=СоздатьОбъект("Сервис");
глДопМодуль1=Сервис1.ДобавитьГлобальныйМодуль("...");
Сервис2=СоздатьОбъект("Сервис");
глДопМодуль2=Сервис2.ДобавитьГлобальныйМодуль("...");
...
и т.д. 

Код

Перем ФормРасш;				// Расширение формы FormEx
Перем тСтрДоНажатия;			// Текущая Строка до нажатия левой кнопки мыши
Перем тСтрПослеНажатия;			// Текущая Строка после нажатия левой кнопки мыши

//=============================================== Предопределенная FormEx
Процедура ПриНажатииЛевойКнопки(Сост,Х,У,ФСО)
	Атр=ФормРасш.ПолучитьАтрибутПоКоординатам(Х,У);
	Если ТипЗначенияСтр(Атр)="АтрибутФормы" Тогда
		Если Атр.Идентификатор="тзМоя" Тогда
			тСтрДоНажатия=тзМоя.ТекущаяСтрока();
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры // ПриНажатииЛевойКнопки

//=============================================== Предопределенная FormEx
Процедура ПриОтжатииЛевойКнопки(Сост,Х,У,ФСО)
	Атр=ФормРасш.ПолучитьАтрибутПоКоординатам(Х,У);
	Если ТипЗначенияСтр(Атр)="АтрибутФормы" Тогда
		Если Атр.Идентификатор="тзМоя" Тогда
			тСтрПослеНажатия=тзМоя.ТекущаяСтрока();
			Если тСтрДоНажатия<>тСтрПослеНажатия Тогда
				НовыйОтбор=тзМоя.ПолучитьЗначение(тСтрПослеНажатия,"МояКолонка");
				ВыполнитьОтбор(НовыйОтбор);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры // ПриОтжатииЛевойКнопки
 

Код

//======================================================================
Процедура ПриНажатииКнопкиКлавиатуры(КодКлавиши,Альт,Шифт,Контрл,Символ,ФСО)
	//Сообщить("Код= "+КодКлавиши+". Шифт= "+Шифт+". Симв= "+Символ);
	// <Insert> - 45; <Enter> - 13; <F9> - 120; <Delete> - 46; <Tab> - 9; <Esc> - 27
	Если КодКлавиши=9 Тогда // <Tab>
		Если ТекущийСлой="СписокПользователей" Тогда
			Если	  Форма.АктивныйЭлемент()="тзПл"	  Тогда ФСО=0; ПриПовторномОткрытии(?(Шифт=0,"кнНовый","кнЗакрыть"));
			ИначеЕсли Форма.АктинвыйЭлемент()="кнЗакрыть" Тогда ФСО=0; ПриПовторномОткрытии(?(Шифт=0,"тзПл","кнСортироватьЯА"));
			КонецЕсли;
		Иначе
			// Т.к. порядок обхода известен, подставим ТекстПодсказки для следующего элемента формы
			Если	  Форма.АктивныйЭлемент()="СтрПолноеИмя" Тогда ТекстПодсказки=?(Шифт=0,ТхтПрава,ТхтОтмена);
			ИначеЕсли Форма.АктивныйЭлемент()="спПрава"		 Тогда ТекстПодсказки=?(Шифт=0,ТхтИнтерфейсы,ТхтИмя);
			ИначеЕсли Форма.АктивныйЭлемент()="спИнтерфейсы" Тогда ть),ТхтПрава);
			ИначеЕсли Форма.АктивныйЭлемент()="кнОтмена"	 Тогда ,ТхтПрименить));
			ИначеЕсли Форма.АктивныйЭлемент()="кнПрименить"	 Тогда ТекстПодсказки=?(Шифт=0,ТхтОтмена,ТхтИнтерфейсы);
			КонецЕсли;
		КонецЕсли;
		Форма.Обновить();

	ИначеЕсли КодКлавиши=45 Тогда // <Insert>
		Если ТекущийСлой="СписокПользователей" Тогда
			ФСО=0; ПриВыбореЗначения("кнНовый");
		КонецЕсли;

	ИначеЕсли КодКлавиши=13 Тогда // <Enter>
		Если Шифт=1 Тогда
			ФСО=0;
			Если ТекущийСлой="СписокПользователей" Тогда
				ПриВыбореЗначения("кнИзменить");
			КонецЕсли;
		Иначе
			Если	  Форма.АктивныйЭлемент()="спПрава"		 Тогда ТекстПодсказки=ТхтИнтерфейсы;
			ИначеЕсли Форма.АктивныйЭлемент()="спИнтерфейсы" Тогда ТекстПодсказки=ТхтИмя;
			КонецЕсли;
			Форма.Обновить();
		КонецЕсли;

	ИначеЕсли КодКлавиши=120 Тогда // <F9>
		Если ТекущийСлой="СписокПользователей" Тогда
			ФСО=0; ПриВыбореЗначения("кнКопировать");
		КонецЕсли;

	ИначеЕсли КодКлавиши=27 Тогда // <Esc>
		Если ТекущийСлой="СписокПользователей" Тогда
			Если Форма.ТолькоПросмотр()=0 Тогда
				Рез=Вопрос("Завершить работу со ""Списком пользователей 1С""?"+СтрСт+СтрСт+"
						   |""ДА""  - закрыть Список"+СтрСт+"
						   |""НЕТ"" - продолжить работу","Да+Нет",30);
				Если Рез="Нет" Тогда ФСО=0; КонецЕсли;
			КонецЕсли;
		Иначе // Слой "НастройкаПользователя"
			ФСО=0; ПриВыбореЗначения("СменитьСлой","СписокПользователей");
		КонецЕсли;

	КонецЕсли;

КонецПроцедуры	// ПриНажатииКнопкиКлавиатуры
 

Код

ТекПерехват = Сервис.ПерехватКлавиатуры(); 

Код

Процедура ПослеОткрытия()
	ФормаРасш = СоздатьОбъект("РасширениеФормы");
	ФормаРасш.УстановитьФорму(Форма);
	АтрФормы = ФормаРасш.ПолучитьАтрибут("МногострочнаяЧасть");
	АтрФормы.Картинка = "ИконкиЗП";
КонецПроцедуры //