DBGrid

← →
b-a-n © (2004-07-02 10:31) [0]

Как зделать так, чтобы при вращении колесика мышки над DBGrid выполнялись команды Table.Next и Table.Prior, а не просто перемещение курсора по таблице?

← →
Sir John © (2004-07-02 10:33) [1]

а в чем разница, поясните?
Насколько я понимаю, "перемещение курсора по таблице" колесиком мышки и есть Next и Prior

← →
b-a-n © (2004-07-02 10:40) [2]

Разница в том, что при вращении колесика просто двигается курсор, выделяющий запись в DBGrid, а индикатор остается на тойже записи Table.

← →
Vlad © (2004-07-02 10:42) [3]

> b-a-n © (02.07.04 10:40) [2]

Драйвер для мыши нормальный поставь.
У меня и курсор и индикатор перемещаются при вращении колесика мышки (специально ничего не делал)

ответ: всем
>> У меня и курсор и индикатор перемещаются при вращении
>> колесика мышки (специально ничего не делал)

у меня - тоже самое.. Курсор вместе с индикатором бегают...

можно переопределить
TMyDBGrid = class(TDBGrid) procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL; end;
в гриде, и там делать реакцию
procedure TMyDBGrid.WMMouseWheel(var Msg: TWMMouseWheel); begin if DataSource.DataSet.Active then begin if Msg.WheelDelta > 10 then DataSource.DataSet.Prior; if Msg.WheelDelta < -10 then DataSource.DataSet.Next; end; end;

переопределять, или делать наследника от грида и описывать или подменить процедуру в существующем гриде (это нужно onMouseWheel заменить)

DBGrid Найти похожие ветки