Отловить прокрутку колесика mouse3

отловить прокрутку колесика mouse3
if getasynckeystate(1)<>0 then

К примеру этот код проверяет нажата ли клавиша MOUSE1 (левая кнопка мыши).

А что написать вместо (1), чтобы проверка была на прокрутку колесика mouse3 вверх? Очень нужно. Помогите пж-ста!

  • Тут getasynckeystate тебе не поможет.
    Чтобы отловить колёсико мыши, надо добавить обработчик событий на WM_MOUSEWHEEL.
    На Дельфи это будет выглядеть так:

    TForm1 = class(TForm) //эта строка уже есть
    procedure WndProc(var Message: TMessage);override;
    ...

    procedure TForm1.WndProc(var Message: TMessage);
    var wc,hc,dw,dh,k:extended;
    begin
    if (Message.Msg=WM_MOUSEWHEEL) and (Message.WParam<0) then //тут пишем обработчик
    Inherited WndProc(Message);
    end;