Навигация в DBGrid

← →
Сергей77 © (2003-08-14 09:14) [0]

Нет события MouseWheel. Сетка на колесико вроде реагирует, перерисовывает ячейки, но курсор остается на месте, перемещается только стрелками на клавиатуре и на одну строку щелчком мыши. Что бы курсор перемещался колесиком надо вручную писать обработчик сообщений windows, и дорабатывать исходник DBGrid?
Может кто работал в D7, как там организовано DBGrid на колесо реагирует, может мне просто найти себе D7. ??

← →
stud © (2003-08-14 09:19) [1]

поставь себе ehlib для d7 и ни о чем не думай))

> Может кто работал в D7, как там организовано DBGrid на колесо реагирует...
там то же самое. делается легко (юзай dbgreed и можеш немного подумать ;о))

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;

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