Всем доброго времени суток. Ребят может уже и был такой вопрос, но все же..
Есть DBGrid. Была сегодня у меня проблемка с прокруткой (наверное всем извесная). Разобрался с этим таким образом:
Код:
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 положения (начало, середина и конец). Как сделать чтобы он работал по человечески? Если можна - поподробнее.
Заранее благодарен за ответы.