Главная страница
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.02 c
4-1130775758
sd_simf
2005-10-31 19:22
2006.01.08
"Остановить" приложение


1-1134022139
Dima_DD
2005-12-08 09:08
2006.01.08
Ролик мышки на DBGrid


14-1134363176
АлексейК
2005-12-12 07:52
2006.01.08
Лама Итигелов


9-1122628042
Зм1й
2005-07-29 13:07
2006.01.08
Вопрос по OpenAL


1-1133492829
Петр
2005-12-02 06:07
2006.01.08
Как подгрузить dll, написанную в Delphi в проект CBuilder?