Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поведайте про решение проблемы с несоответствием скроллбара! [D7, MSSQL, Paradox]


Aleksandr ©   (2003-12-04 14:44:00) 

Знаю, что есть классический пример, как заставить в DBGrid отображать бегунки на скроллбарах в точном соответствии с нахождением курсора в наборе данных. Только вот найти не могу никак его :(...


sniknik   (2003-12-04 16:05:00) [1]

у вот про что, а я почемуто подумал про маркер когда колесиком прокручиваеш. тоже позиция сходит с реального курсора в датасете.


dmtr   (2003-12-04 15:01:00) [2]

DataSet.FetchAll


sniknik   (2003-12-04 14:55:00) [3]

вот уж не знал что это уже классика. ;о)) мышка у тебя с колесиком?

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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо