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

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

Нужно чтобы скролл мыши листал записи в DBGrid'e [D6, access]

Леха5 ©   (2004-09-03 14:04:00) 

Когда скроллишь листаются записи до концца области DBGrid'a, а записей намного больше, чем его область. Можно ли сделать листание по всем записям.

---

sniknik   (2004-09-03 14:26:00) [1]

type
 TMyDBGrid = class(TDBGrid);

 TForm1 = class(TForm)
 ...
 private
 procedure GrigMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 TMyDBGrid(DBGrid1).OnMouseWheel:= GrigMouseWheel;
end;

procedure TForm1.GrigMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 with TDBGrid(Sender).DataSource.DataSet do
 if Active then begin
   if WheelDelta > 10 then Prior;
   if WheelDelta < -10 then Next;
   Handled:= true;
 end;
end;

---

Rule   (2004-09-03 14:14:00) [2]

Ты сначала эти записи с сервака забери, чтоб было что листать, я вот не знаю что там со стандартным гридом, но в DBGridEx  все нормально листается по тем записям, которые забраны с сервера, если не знаешь как забрать все записи то FetchAll

---

Роман Снегирев   (2004-09-03 14:10:00) [3]

нельзя, забудь про TDBGrid, используй другие компоненты, хотя можешь и исходники стандартного грида поправить

---

Наверх