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

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

Прокрутка DBGrid? [D7]

SergeyM ©   (2004-05-13 16:51:00) 

Привет всем!
Подскажите как прокрутить DBGrid колесиком мыши?

---

Skyle   (2004-05-14 13:24:00) [1]

> Поставь нормальный драйвер для мыши и все будет прокручиваться

Правда?

---

Vlad   (2004-05-14 13:22:00) [2]

Поставь нормальный драйвер для мыши и все будет прокручиваться

---

SergeyM   (2004-05-14 13:21:00) [3]

DrPass

А ты уверен что он прокручивает?
В простом DBGrid колесико работает только в поле видимости компонента, но не выходит за пределы.


sniknik

Очередное тебе спасибо, ты мне уже не раз хорошие советы давал.

Вопрос снят.

---

DrPass   (2004-05-13 23:47:00) [4]

Может, я неправильный программист, и у меня неправильная Delphi, неправильное колесико и неправильный TDBGrid... но у меня он и так прокручивается от колесика мыши...

---

sniknik   (2004-05-13 23:41:00) [5]

TMyDBGrid = class(TDBGrid);

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

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

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


---

d'aron   (2004-05-13 18:54:00) [6]

DBGridEh

---

Arm79   (2004-05-13 18:36:00) [7]

rxdbgrid - уже реализовано

---

SergeyM   (2004-05-13 16:58:00) [8]

А ченибудь с примером можно?

---

Семен Сорокин   (2004-05-13 16:54:00) [9]

написать наследника, где обработать WM_MOUSEWHEEL (NT...)

---

Наверх