Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: 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 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
2-1134920031
Out84
2005-12-18 18:33
2006.01.08
Поправка работы с ini файлами


1-1133872723
Некто Аполло
2005-12-06 15:38
2006.01.08
Version Info для DLL


2-1134935383
x-steff
2005-12-18 22:49
2006.01.08
Проблема с БД в Дельфи


2-1135199699
Mahab
2005-12-22 00:14
2006.01.08
файлы


11-1116426061
Владимир Кладов
2005-05-18 18:21
2006.01.08
инициализация Color в MCK