Некрасивое поведение контролов HScroll и VScroll

22.06.2010, 19:53. **Показов** 2199. **Ответов** 14

Студворк — интернет-сервис помощи студентам

Эти контролы не реагируют на колесо мыши, если форма с этими контролами вызвана из другого приложения.

Пример.
- Создаём проект №1, в нём форму, на ней - VScroll1 с Max=100 (к примеру).
- Жмём F5, проект №1 запускается. Крутим над скроллбаром колесом мыши - скроллбар прокручивается. Всё ОК.
- Компилируем этот проект, получаем Project1.exe.
- Создаём проект №2, в нём форму, в её событии Load пишем: Shell '<путь>Project1.exe'.
- Жмём F5, проект №2 запускается и запускает первый проект. Крутим над скроллбаром открывшейся формы колесом мыши - никакого эффекта, скроллбар НЕ КРУТИТСЯ.

Вопрос: есть мысли, как побороть это безобразие?!

@VladConn · 24.06.2010, 00:01

U menya oni ne krutyatsya i v pervom sluchae

24.06.2010, 13:17

Наверное, мышь настроена 'в стиле Office 97'. См. настройки мыши в Панели Управления, вкладка с настройками кнопок и колеса.

@VladConn · 24.06.2010, 17:31

OK, spasibo.

@VladConn · 24.06.2010, 18:55

Look at
http://www.adit.co.uk/html/mousewheelsupport.html

24.06.2010, 19:29

Спасибо!!! Похоже, это то, что нужно - ведь в этой статье чётко говорится, что скролл-бар входит в число контролов, которые 'не дружат' с мышиным колесом. Кстати, вторым таким контролом является MSFlexGrid - и точно! одно моё приложение это подтверждает.
Однако, странно, что это приложение демонстрирует эту проблему только у некоторых заказчиков. У меня самого на компе грид прокручивается отлично, несмотря на заявления в этой статье, ссылку на которую вы привели. И также странно, что и со скролл-баром у меня тоже, в принципе, всё нормально - кроме случая с запуском проекта из ДРУГОГО проекта...

24.06.2010, 19:55

Вообще, здесь явно влияет на ситуацию драйвер мыши и его настройки...

@mt22 · 24.06.2010, 22:15

Скорее всего у некоторых заказчиков мышь подключена через старый COM-порт, тогда прокрутки от колеса не будет, а если через PS/2 или USB, то заработает.

24.06.2010, 22:25

Да нет, у них оптические мыши (Logitech, Genius), а они, насколько мне известно, с COM-интерфейсом не выпускаются.

@VladConn · 25.06.2010, 00:32

Comanche,

Proshu proscheniya za latinitzu.
Ya vospol'zovalsya modulem. Pochti vse teper' krutitsya. Odna malost': vo flex grid krutitsya tol'ko vertikal'ni'y bar.

Ya etot modul' perepisal tak chto on avtomaticheski rabotaet dlya activnoy formi' i aktivnogo kontrola. Ne nado nikakih pryami'h ssi'lok na formy i kontroli'.

Spasibo za to chto natolknuli na etu problemu.

Vlad

@VladConn · 25.06.2010, 00:44

Comanche:

Ya nashel sleduyuschiy commentariy ob etoy probleme:

'If your mouse is compatible with the Microsoft mouse and you install a new Intelli Mouse driver, the mouse wheel works in VB6 anyway.'

Eto zamechanie kasalos' kodovogo okna v VB6 IDE, gde scroll ne rabotaet i trebuetsya skachivat' spetzial'nyi Add-In.

Vlad

25.06.2010, 12:57

Может, вышлешь переписанный тобой модуль? на почту pc-er@mail.ru.
Заранее благодарен...

PS: Я вот думаю: а что, если я для своей 'Genius NetScroll+ Eye' поставлю драйвер от 'MS Intelli Mouse' ?! Никто не пробовал? Может, тогда проблема и исправится... кроме того, у этой Genius единственный вариант настройки, когда прокрутка колеса доходит до 'проблемных' контролов (и до окна VB IDE, в том числе), имеет идиотский побочный эффект: на экран выходит круглое окошко для быстрого запуска приложений. Вот дурь!

25.06.2010, 12:59

В смысле, это окошко выходит только при _нажатии_ на среднюю кнопку, конечно. Но всё равно раздражает.

27.06.2010, 00:34

А в чем, собственно, проблема? Сабклассить нужный контрол, обрабатывать WM_MOUSEWHEEL - и все работает как часы, без установки всяких специальных дров и 'дурацких окошек' по средней кнопке...

27.06.2010, 23:10

Да замучался я уже всё время сабклассить!!!!!
Последний мой проект - это одни сабклассинги, системные хуки и проч.
Уже тошнит

(

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Comanche

	Некрасивое поведение контролов HScroll и VScroll 22.06.2010, 19:53. Показов 2199. Ответов 14 Метки нет (Все метки) Эти контролы не реагируют на колесо мыши, если форма с этими контролами вызвана из другого приложения. Пример. - Создаём проект №1, в нём форму, на ней - VScroll1 с Max=100 (к примеру). - Жмём F5, проект №1 запускается. Крутим над скроллбаром колесом мыши - скроллбар прокручивается. Всё ОК. - Компилируем этот проект, получаем Project1.exe. - Создаём проект №2, в нём форму, в её событии Load пишем: Shell '<путь>Project1.exe'. - Жмём F5, проект №2 запускается и запускает первый проект. Крутим над скроллбаром открывшейся формы колесом мыши - никакого эффекта, скроллбар НЕ КРУТИТСЯ. Вопрос: есть мысли, как побороть это безобразие?!

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	24.06.2010, 00:01
	U menya oni ne krutyatsya i v pervom sluchae 0

Comanche
	24.06.2010, 13:17
	Наверное, мышь настроена 'в стиле Office 97'. См. настройки мыши в Панели Управления, вкладка с настройками кнопок и колеса.

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	24.06.2010, 17:31
	OK, spasibo. 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	24.06.2010, 18:55
	Look at http://www.adit.co.uk/html/mousewheelsupport.html 0

Comanche
	24.06.2010, 19:29
	Спасибо!!! Похоже, это то, что нужно - ведь в этой статье чётко говорится, что скролл-бар входит в число контролов, которые 'не дружат' с мышиным колесом. Кстати, вторым таким контролом является MSFlexGrid - и точно! одно моё приложение это подтверждает. Однако, странно, что это приложение демонстрирует эту проблему только у некоторых заказчиков. У меня самого на компе грид прокручивается отлично, несмотря на заявления в этой статье, ссылку на которую вы привели. И также странно, что и со скролл-баром у меня тоже, в принципе, всё нормально - кроме случая с запуском проекта из ДРУГОГО проекта...

Comanche
	24.06.2010, 19:55
	Вообще, здесь явно влияет на ситуацию драйвер мыши и его настройки...

@mt22 1 / 1 / 0 Регистрация: 03.08.2007 Сообщений: 155
	24.06.2010, 22:15
	Скорее всего у некоторых заказчиков мышь подключена через старый COM-порт, тогда прокрутки от колеса не будет, а если через PS/2 или USB, то заработает. 0

Comanche
	24.06.2010, 22:25
	Да нет, у них оптические мыши (Logitech, Genius), а они, насколько мне известно, с COM-интерфейсом не выпускаются.

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	25.06.2010, 00:32
	Comanche, Proshu proscheniya za latinitzu. Ya vospol'zovalsya modulem. Pochti vse teper' krutitsya. Odna malost': vo flex grid krutitsya tol'ko vertikal'ni'y bar. Ya etot modul' perepisal tak chto on avtomaticheski rabotaet dlya activnoy formi' i aktivnogo kontrola. Ne nado nikakih pryami'h ssi'lok na formy i kontroli'. Spasibo za to chto natolknuli na etu problemu. Vlad 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	25.06.2010, 00:44
	Comanche: Ya nashel sleduyuschiy commentariy ob etoy probleme: 'If your mouse is compatible with the Microsoft mouse and you install a new Intelli Mouse driver, the mouse wheel works in VB6 anyway.' Eto zamechanie kasalos' kodovogo okna v VB6 IDE, gde scroll ne rabotaet i trebuetsya skachivat' spetzial'nyi Add-In. Vlad 0

Comanche
	25.06.2010, 12:57
	Может, вышлешь переписанный тобой модуль? на почту pc-er@mail.ru. Заранее благодарен... PS: Я вот думаю: а что, если я для своей 'Genius NetScroll+ Eye' поставлю драйвер от 'MS Intelli Mouse' ?! Никто не пробовал? Может, тогда проблема и исправится... кроме того, у этой Genius единственный вариант настройки, когда прокрутка колеса доходит до 'проблемных' контролов (и до окна VB IDE, в том числе), имеет идиотский побочный эффект: на экран выходит круглое окошко для быстрого запуска приложений. Вот дурь!

Comanche
	25.06.2010, 12:59
	В смысле, это окошко выходит только при _нажатии_ на среднюю кнопку, конечно. Но всё равно раздражает.

Messir
	27.06.2010, 00:34
	А в чем, собственно, проблема? Сабклассить нужный контрол, обрабатывать WM_MOUSEWHEEL - и все работает как часы, без установки всяких специальных дров и 'дурацких окошек' по средней кнопке...

Comanche
	27.06.2010, 23:10
	Да замучался я уже всё время сабклассить!!!!! Последний мой проект - это одни сабклассинги, системные хуки и проч. Уже тошнит (