| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Навигация в DBGrid [D6]
Сергей77 © (2003-08-14 09:14:00)
Нет события MouseWheel. Сетка на колесико вроде реагирует, перерисовывает ячейки, но курсор остается на месте, перемещается только стрелками на клавиатуре и на одну строку щелчком мыши. Что бы курсор перемещался колесиком надо вручную писать обработчик сообщений windows, и дорабатывать исходник DBGrid?
Может кто работал в D7, как там организовано DBGrid на колесо реагирует, может мне просто найти себе D7. ??
sniknik (2003-08-14 10:19:00) [1]
> Может кто работал в 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;
stud (2003-08-14 09:19:00) [2]
поставь себе ehlib для d7 и ни о чем не думай))
| |
