Отрицательно значение у wParam?

[TwiX]

Передаю приложения прокрутку колеса мыши:
С кручение мыши вперёд получается:

SendMessage(TV, WM_MOUSEWHEEL, MakeWParam(0,120),0);

Пытаюсь крутить назад:

SendMessage(TV, WM_MOUSEWHEEL, MakeWParam(0,-120),0);

Но тут ошибка:

[DCC Error] Unit1.pas(42): E1012 Constant expression violates subrange bounds

Как исправить?
Вот описание wParam для MouseWheel из справки:

zDelta

The value of the high-order word of wParam. Indicates the distance that the wheel is rotated, expressed in multiples or divisions of WHEEL_DELTA, which is 120. A positive value indicates that the wheel was rotated forward, away from the user; a negative value indicates that the wheel was rotated backward, toward the user.

[Karabash]

Заменять системные сообщения своими довольно затруднительно - необходимо хорошо знать структуру сообщения (TWMMouseWheel описана в модуле Messages.pas).
Что-то не припоминаю чтобы применялся такой экзотический способ работы с колесом. Как правило, системные сообщения от колеса мыши обрабатывают в оконной процедуре и нет никакой необходимости посылать форме или компонентам собственные сообщения. Все равно у вас это не получится так как это делает винда.

А MakeWParam макрос, который в параметрах принимает только беззнаковые значения (The MAKEWPARAM macro creates an unsigned 32-bit value for use as a wParam parameter in a message), от того и ошибка.

[JTG]

Тю, возьми да переделай

function MakeWParam(A, B: Integer): Longint; overload;
begin
  Result := A or B shl 16;
end;

[TwiX]

2Karabash, чего-то я Вас плохо понимаю =)

2JTG, спасибо огромное =) Работает идеально)
А как работает shl?

[Karabash]

2Karabash, чего-то я Вас плохо понимаю =)

Надо было бы сперва мне спросить для чего колесные сообщения посылаете, какова цель, а я в философию ударился.
Имел ввиду, что сообщения от колеса генерит винда, а обрабатываются они в приложении, а у вас как-то наоборот получается: ваше приложение посылает колесное сообщения и, видно, само же и обрабатывает. Не возбраняется, но немного странновато выглядит (в моем представлении, конечно - чего его посылать, когда есть кому это делать).

[JTG]

Побитовый сдвиг влево, 16 бит = 2 байта
выполняется сначала shl затем or

0000BBBBh (hiWord)
shl
16
----------
BBBB0000h
or
0000AAAAh (loWord)
----------
BBBBAAAAh
_hi___lo

[TwiX]

2Karabash, Колёсное сообщения посылаю в ТВ-тюнер, чтобы уменьшить/увеличить громкость из игры/другого приложения. Не знаю что тут странного, это же винАПИ - крутя колесо мышки руками, Вы делает то же самое =)

2JTG, спасибо ещё раз =)