Плавная прокрутка TDBGrid
Я хочу сделать прокрутку TDBGrid «более плавной» для прокрутки страницы, а не построчно (курсор набора данных).
Я знаю, что навигация происходит по набору данных, а не по визуальной сетке.
Нашел этот старый пост, который работает через вертикальную полосу прокрутки, но не работает с прокруткой колесика мыши.
Подробнее — в этом посте.
Ответы 2
Прокрутка осуществляется через DBGrid и OnMouseWheel:
procedure TForm1.DBGridMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: integer; MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
if WheelDelta < 0 then
DBGrid.DataSource.DataSet.MobeBy(3)
else
DBGrid.DataSource.DataSet.MobeBy(-3);
end;
Работая с внутренним компонентом пользовательской сетки (очень похожим на TDBGrid), я разработал решение, работающее с событиями полос прокрутки (вертикальными и горизонтальными) и событием колеса мыши, поэтому я самостоятельно обрабатываю прокрутку, пропуская общую прокрутку Vcl.
Таким образом, я могу моделировать веб-сетки, которые прокручиваются по горизонтали в состоянии сдвига, даже не касаясь курсора набора данных.
Итак, последняя ссылка в вашем посте ответила на ваш вопрос?