Текущий архив: 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.45 MB
Время: 0.007 c
