Сообщение от колеса мыши

← →
arcad (2002-10-10 16:24) [0]

Уважаемые мастера.
Как написать обработчик сообщения от колеса мыши?
Как узнать на каком компоненте и в какую сторону повернулось колесо?
Если можно, кусочек кода плиз.

← →
AL2002 (2002-10-10 16:48) [1]

событие OnMouseWheel

← →
arcad (2002-10-10 17:04) [2]

.
> AL2002 © (10.10.02 16:48)
> событие OnMouseWheel

Спасибо.
Я написал такой обработчик, но присвоить я его могу только форме.
А мне нужно, что бы на это событие реагировали другие компоненты, например TEdit. А у него нет события OnMouseWheel.
Как быть то?
Нашел вот что:
TControl.MouseWheelHandler(var Message: TMessage).
Может так? Только какой мессадж и как его обрабатывать?
Ни разу не писал обработчик сообщений.

← →
AL2002 (2002-10-10 17:18) [3]

>arcad © (10.10.02 17:04)
Ты можешь над контролами событие онмаус мув делать. Чтобы, если мыша над ними, давать какое-то значение глобальной переменной. А событие формы OnMouseWheel пусть уже зависит от значения этой переменной. Посылай им сообщение WM_MOUSEWHEEL.

← →
arcad (2002-10-10 17:43) [4]

> AL2002 © (10.10.02 17:18)

Поймал сообщение от колеса:

procedure WMMouseWheel(var Msg: TMessage);message WM_MOUSEWHEEL;

procedure TForm1.WMMouseWheel(var Msg: TMessage);
begin
Label1.Caption:="А все таки оно вертится";
end;
Как узнать на ком мышь-то в этот момент была?
Желательно узнать прямо в обработчике.

← →
Набережных С. (2002-10-10 18:24) [5]

type
TCEdit = class(TEdit);

TCEdit(Edit1).OnMouseWheel:=...

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