Перехватчик нажатий клавиш (ActiveX)


Примитивная компонента ActiveX, перехватывающая нажатия клавиш и принудительно возвращающая фокус компоненте при его потере. Искал в свое время для внедрения в интерфейс кассира. Может, кому еще пригодится.

Примитивная компонента ActiveX, перехватывающая нажатия клавиш и принудительно возвращающая фокус компоненте при его потере. Сделал в свое время для внедрения в интерфейс кассира - чисто для того, чтобы нормально работать в рознице ... кто юзал типовую УТ, тот поймет... жмет пользователь на любую кнопку - срабатывает контекстный поиск - сканер в ауте... и другие мелкие косяки.... Может, кому еще пригодится.

В обработке показан пример использования компоненты. Не забудьте зарегить при помощи regsvr32. При открытии формы необходимо установить фокус на контрол.

Исправлено:

  • свойство Enabled обрабатывается.
  • свойство BackColor обрабатывается.
  • остальные свойства исключены из контрола
  • добавлено свойство "ForeverGotFocus". Если оно false, то обработка потери фокуса не производится средствами контрола - обрабатывайте сами событие "LostFocus"

Файлы обработки:

-