Скачать: CL | DM;

Прокрутка DBGrid?   Найти похожие ветки 

← →
SergeyM ©   (2004-05-13 16:51) [0]

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

---

← →
Семен Сорокин ©   (2004-05-13 16:54) [1]

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

---

← →
SergeyM ©   (2004-05-13 16:58) [2]

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

---

← →
Arm79 ©   (2004-05-13 18:36) [3]

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

---

← →
d'aron ©   (2004-05-13 18:54) [4]

DBGridEh

---

← →
sniknik ©   (2004-05-13 23:41) [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;


---

← →
DrPass ©   (2004-05-13 23:47) [6]

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

---

← →
SergeyM ©   (2004-05-14 13:21) [7]

DrPass

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


sniknik

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

Вопрос снят.

---

← →
Vlad ©   (2004-05-14 13:22) [8]

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

---

← →
Skyle ©   (2004-05-14 13:24) [9]

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

Правда?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c