Код

// перехват мыши нам нужен только в определенных ситуациях....
// и НЕ НУЖЕН в подавляющем случае....
// Счетчик проверки необходимости мышиного хука,
// увеличиваем при инициализации формы в которой нам нужен перехват,
// уменьшаем, когда данная форма деструктится...
Перем глFormEx_MouseRefCounter Экспорт;

Процедура глFormEx_Mouse_Manage() Экспорт
	Попытка
		вСервис = СоздатьОбъект("Сервис");
		Если глFormEx_MouseRefCounter = 0 Тогда
			вСервис.ПерехватМыши(0);
		ИначеЕсли глFormEx_MouseRefCounter = 1 Тогда
			вСервис.ПерехватМыши(1);
		КонецЕсли;
	Исключение
		Если НазваниеНабораПрав(0) = "Администратор" Тогда
			Сообщить("[2007-02-22 16-50] "+ ОписаниеОшибки());
		КонецЕсли;
	КонецПопытки;

КонецПроцедуры // глFormEx_refMouse_Нужен()


// глFormEx_refMouse_Нужен()
// инкременируем
Процедура глFormEx_Mouse_Нужен() Экспорт
	глFormEx_MouseRefCounter = глFormEx_MouseRefCounter + 1;
	глFormEx_Mouse_Manage();
КонецПроцедуры // глFormEx_refMouse_Нужен()


// глFormEx_refMouse_Нужен()
// декременируем, проверяем
Процедура глFormEx_Mouse_НеНужен() Экспорт
	глFormEx_MouseRefCounter = глFormEx_MouseRefCounter - 1;
	глFormEx_Mouse_Manage();
	Если глFormEx_MouseRefCounter<0 Тогда
	    Сообщить("[2007-02-22 16-56] Возможно ошибочный декремент. Сообщите программисту о данном сообщении!");
	КонецЕсли;
КонецПроцедуры // глFormEx_refMouse_Нужен()

Процедура ПриНачалеРаботыСистемы()
	......
	глFormEx_MouseRefCounter = 0;
	глFormEx_Mouse_Manage();
КонецПроцедуры
 

Код

Процедура Конструктор()
	РасширениеФормы=Сам(Контекст).ПолучитьБазовыйКласс("РасширениеФормы");
	.......
	глFormEx_Mouse_Нужен(); //<<<
	......
КонецПроцедуры

Процедура Деструктор()
	глFormEx_Mouse_НеНужен();//<<<
КонецПроцедуры