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

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

DBGrid и колесико мыши

Дева ©   (2005-12-18 00:09:00) 

Доброго времени суток, мастера :)
Подскажите, пожалуйста, как подружить DBGrid и колесико мыши. Чтобы при прокручивании оного DBGrid листалось

---

Virgo_Style   (2005-12-18 11:22:00) [1]

В OnCreate
TDrawGrid(DBGrid).OnMouseWheelDown:= FormMouseWheelDown;
TDrawGrid(DBGrid).OnMouseWheelUp:=   FormMouseWheelUp;

В Form.OnMouseWheelUp (..Down - аналогично c .Next)
if Sender is TDBGrid then
begin
 Handled:=true;
 (Sender as TDBGrid).DataSource.DataSet.Prior;
end;

---

Наверх