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

Ролик мышки на DBGrid   Найти похожие ветки 

← →
Dima_DD   (2005-12-08 09:08) [0]

Здавствуйте, мастера ! Подскажите что сделать чтобы можно было просматривать записи в DBGrid c помощью ролика мыши ?
Он у меня перестает прокручивать тогда когда доходит до
последней записи из записей отображенных на экране, дальше приходится стрелкой вниз. Заранее спасибо.

---

← →
Piero ©   (2005-12-08 09:20) [1]

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
dbgrid1.ScrollBy(0,WheelDelta);
handled:=true;
end;

---

← →
Dima_DD   (2005-12-08 09:29) [2]

2 Piero
У меня все равно не работает. Доходит курсор до последней записи на экране и тормозит.

---

← →
Leonid Troyanovsky ©   (2005-12-08 09:33) [3]

> Dima_DD   (08.12.05 09:08)  
> Здавствуйте, мастера ! Подскажите что сделать чтобы можно
> было просматривать записи в DBGrid c помощью ролика мыши



http://groups.google.com/group/borland.public.delphi.language.delphi.win32/msg/81be3f71fc6f2c24

--
Regards, LVT.

---

← →
msguns ©   (2005-12-08 09:36) [4]

procedure TfrmListFond.FormCreate(Sender: TObject);
begin
 TDrawGrid(grListFonds).OnMouseWheelDown := FormMouseWheelDown;
 TDrawGrid(grListFonds).OnMouseWheelUp := FormMouseWheelUp;
 TDrawGrid(grFondsNames).OnMouseWheelDown := FormMouseWheelDown;
 TDrawGrid(grFondsNames).OnMouseWheelUp := FormMouseWheelUp;
 TDrawGrid(grFondsParts).OnMouseWheelDown := FormMouseWheelDown;
 TDrawGrid(grFondsParts).OnMouseWheelUp := FormMouseWheelUp;
 ...
end;

procedure TfrmListFond.FormMouseWheelDown(Sender: TObject;
 Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 if (Screen.ActiveControl.ClassType<>TDBGrid) then exit;
 with Screen.ActiveControl as TDBGrid do
   if Visible and (DataSource.DataSet<>nil) and (DataSource.DataSet.RecordCount>0) then
      DataSource.DataSet.Next;
end;

procedure TfrmListFond.FormMouseWheelUp(Sender: TObject;
 Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 if (Screen.ActiveControl.ClassType<>TDBGrid) then exit;
 with Screen.ActiveControl as TDBGrid do
   if Visible and (DataSource.DataSet<>nil) and (DataSource.DataSet.RecordCount>0) then
      DataSource.DataSet.Prior;
end;

---

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

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



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