[Zork]

Всем доброго времени суток. Ребят может уже и был такой вопрос, но все же..
Есть DBGrid. Была сегодня у меня проблемка с прокруткой (наверное всем извесная). Разобрался с этим таким образом:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;   var Handled: Boolean);   var i: SmallInt; begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam) ; if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end;   end;

Admin: Пользуемся тегами, иначе последуют санкции!

Прокрутка колесиком мыши стала работать на ура)

Но осталась еще 1 проблемка. Скролл который справа имеет всего 3 положения (начало, середина и конец). Как сделать чтобы он работал по человечески? Если можна - поподробнее.
Заранее благодарен за ответы.