Не ловятся сообщения от мышиного колесика WM

← →
Чайник © (2006-02-28 22:32) [0]

Создаю компонент от TCustomControl. По ходу дела ловлю сообщения мыши:

TPanelGL = class(TCustomControl) private ... procedure WMMouseDownL(var msg : TWMMouse); message WM_LButtonDown; procedure WMMouseUpL(var msg : TWMMouse); message WM_LButtonUp; procedure WMMouseMove(var msg : TWMMouse); message WM_MouseMove; procedure WMMouseWheel(var msg : TWMMouseWheel); message WM_MouseWheel;

Все работает, кроме колеса.
Что я делаю не так?

← →
Чайник © (2006-03-10 01:50) [1]

Пробовал перекрыть метод DoMouseWheel, который есть в TControle:

TPanelGL = class(TCustomControl) protected ... function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; end; function TPanelGL..DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; begin inherited; ... бла-бла-бла ... end;

- все равно не работает. Такое ощущение, что форма это сообщение не передает своим контролам.
Кстати, чем отличаются сообщения WM_MOUSWWHEEL и CM_MOUSWWHEEL ?

← →
AdmeraL © (2006-03-11 21:57) [2]

У меня тоже не реагирует. Странно.

← →
AdmeraL © (2006-03-12 15:00) [3]

Народ, попроверяйте у себя и сообщите результаты.Будем думать вместе.

← →
jack128 © (2006-03-12 15:16) [4]

Скорее всего твой контрол не имет фокуса..

← →
AdmeraL © (2006-03-12 15:21) [5]

> jack128 ©

А у тебя работает?

"Ура! Заработало!" (c) Кот Матроскин :

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=40443

А меня тоже. Вот только компелятор не знает сообщения WM_MouseEnter, но распознаёт Wm_mouseLeave. Они что, находятся в разных юнитах?Есть аналогичные сообщения WM_MouseEnter.

Ой! надо вмемто WM_ поставить CM_.Извиняюсь.

Не ловятся сообщения от мышиного колесика WM_MOUSEWHEEL Найти похожие ветки