Обработка WM_MOUSEWHEEL

[Selestis]

Здравствуйте!
Пытаюсь сделать обработку сообщения WM_MOUSEWHEEL, но никак не могу найти работающего примера.. Ни один пример положительного результата не дал. В большинстве примеров производятся какие - либо манипуляции с wParam, но, просмотрев отладчиком, я обнаружил, что wParam ВСЕГДА равен 0. В чем может быть дело?

[Terran]

Если для формы, то обработать можно так:

 Private
    { Private declarations }
    Procedure WMMOUSEWHEEL (Var Msg: TWMMOUSEWHEEL );
    Message WM_MOUSEWHEEL ;
...
Procedure TForm1.WMMOUSEWHEEL(Var Msg: TWMMOUSEWHEEL );
Begin
If Msg.WheelDelta > 0 Then
Begin
Label1.Caption:='UP';
End
Else
Begin
Label1.Caption:='DOWN';
End;
End;

[Selestis]

Нет, не для формы( Пишу на winapi...

[Selestis]

Спасибо, проблема решена с помощью яндекса.

[Giku]

Сообщение от Terran

Если для формы, то обработать можно так:

 Private
    { Private declarations }
    Procedure WMMOUSEWHEEL (Var Msg: TWMMOUSEWHEEL );
    Message WM_MOUSEWHEEL ;
...
Procedure TForm1.WMMOUSEWHEEL(Var Msg: TWMMOUSEWHEEL );
Begin
If Msg.WheelDelta > 0 Then
Begin
Label1.Caption:='UP';
End
Else
Begin
Label1.Caption:='DOWN';
End;
End;

ну наконец то нашел! СПАСИБО !!!!!!!!!!!!!

[Giku]

Procedure TForm1.WMMOUSEWHEEL(Var Msg: TWMMOUSEWHEEL );
Begin
If Msg.WheelDelta > 0 Then
Begin
for i:=1 to n do
Ar[i].top := Ar[i].top + 10;
Br[i].top := Br[i].top + 10;
End
Else
Begin
for i:=1 to n do
Ar[i].top := Ar[i].top - 10;
End;
End;

помогите с кодом, программа запускается но если повернуть колесик вверх то выдает ошибку

ProjectProject1exe raised exception class EAccesViolation with message 'Acces violation at address 0044F03A in module 'Project1.exe'. Read of address 00000044'. Proces stoped. Use Step or Run to continue.

после этого в программе пишет

[Warning] Unit1.pas(58): For loop control variable must be simple local variable

я думаю что это из за строчки

Br[i].top := Br[i].top + 10;

без нее все работает замечательно

в чем ошибка?


(Ar и Br это объекты, которые при вращения колесика меняют свое положение относительно верха, должно получится как в браузере )

[zotox]

Giku, предполагаю, что командой:

Br[i].top := Br[i].top + 10;

Вы залезаете чуть дальше размера массива Br. (что естественно недопустимо)
Я бы на вашем месте попробывал написать:

Br[i-1].top := Br[i-1].top + 10;

[Giku]

проблема решилась с добавлением begin и end

for i:=1 to n do
begin
Ar[i].top := Ar[i].top + 10
Br[i].top := Br[i].top + 10;
end;