Код:
msg.done := TRUE;
Еще оказывается, важно ставить вот такой флаг. Он гарантирует корректно поведение прокрутки в случае, если ваше отображение встроено в другое отображение. Чтобы сообщение повторно не обрабатывалось родительским отображением.
Цитата:
TYPE WheelMsg (CursorMessage)
Расширение
Это сообщение посылается, когда колесо на мыши с колесом поворачивается.
done: BOOLEAN
Если отображение обрабатывает это сообщение, оно должно установить флаг done в TRUE.
op: INTEGER
Показывает, какой тип события колеса мыши произошел. Используются те же константы, что и для прокрутки, но допустимы только следующие из них: incPage, decPage, incLine and decLine.
nofLines: INTEGER nofLines >= 1
Если op или icnLine, или decLine, то nofLines показывает, сколько строк должно быть прокручено. Для incPage и decPage это значение не определено