DBGrid скроллинг

← →
Pavel Denisov (2002-09-18 10:42) [0]

Приветствую, уважаемые !

Не подскажет ли кто умную мысль, как мышиным колесом можно прокручивать записи в DBGrid вверх/вниз, в пределах экрана все работает, а вот когда нужно увидеть следующую запись то не работает. Источник данных DataSet, берет данные из ADOQuery.

Заранее благодарен.

← →
sniknik (2002-09-18 12:47) [1]

как вариант
делаеш тип
MyGreed = class(TDBGrid);

опиши события например
procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if Sender.ClassName = "TDBGrid" then ADODataSet1.Next;
end;

procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if Sender.ClassName = "TDBGrid" then ADODataSet1.Prior;
end;

при создании формы
MyGreed(DBGrid1).OnMouseWheelDown:= MouseWheelDown;
MyGreed(DBGrid1).OnMouseWheelUp:= MouseWheelUp;

в простейшем варианте будет работать, но с перерисовкой грида надо чтонибудь сделать (тут были примеры поищи)

← →
MityaKost (2002-09-18 12:50) [2]

есть вариант в rxLib ;) Там все это есть

← →
Mike Kouzmine (2002-09-18 14:38) [3]

А у меня и так работает, на стандарте.

← →
sniknik (2002-09-18 14:48) [4]

У тебя наверно родные мышиные драйвера стоят? нет?

← →
Mike Kouzmine (2002-09-18 14:55) [5]

Дома нет, на работе да, но работает и там, и там.

← →
sniknik (2002-09-18 15:26) [6]

а у меня перестало проворачивать грид после того как снес родные. но особо это меня не беспокоит :-)

← →
Mike Kouzmine (2002-09-18 15:30) [7]

А меня это никогда и не напрягало. Не вижу проблемы. Работает - слава Аллаху, не работает - ему же слава.

DBGrid скроллинг Найти похожие ветки