Главная страница
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.019 c
2-1135069152
medved_68
2005-12-20 11:59
2006.01.08
Список оборудования


3-1131972061
solenko
2005-11-14 15:41
2006.01.08
Выполнение хранимой процедуры по имени


2-1135076341
Andron.Ru
2005-12-20 13:59
2006.01.08
помогите с Файлами!


6-1127529214
antoxa2005
2005-09-24 06:33
2006.01.08
Странно, почему мой сканер портов не видит мой порт?


1-1133800282
Andrey.Ru
2005-12-05 19:31
2006.01.08
Как TIMAGE с рисунком сделать полупрозрачным?