Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как заставить правил. работать скроллинг в DBGrid + ADOQuery.   Найти похожие ветки 

 
IlyaGer   (2003-02-28 10:47) [0]

Здравствуйте!
Использую в программе DBGrid связанный с ADOQuery.
При попытке скрола с помощью ролика мыши не происходит перехода к следующей записи в ADOQuery.
При этом, выделенной в DBGrid становиться следующая строка, и становиться несколько элементов (треугольников), показывающих выбранную строку.
Так же не возможно сделать скролл не данные которые не поместились на экран.
Проблема пермонентно появляется или пропадает в зависимость от драйверов и производителей мыши.
Заранее спасибо!
Илья.


 
sniknik ©   (2003-02-28 12:08) [1]

TMyDBGrid = class(TDBGrid)
procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
......


procedure TMyDBGrid.WMMouseWheel(var Message: TWMMouseWheel);
begin
if DataSource.DataSet.Active then begin
if Message.WheelDelta > 10 then DataSource.DataSet.Prior;
if Message.WheelDelta < -10 then DataSource.DataSet.Next;
end;
end;


 
sniknik ©   (2003-02-28 12:10) [2]

сори, недостающее звено :-))

TWMMouseWheel = packed record
Msg: Cardinal;
Keys: SmallInt;
WheelDelta: SmallInt;
case Integer of
0: (
XPos: Smallint;
YPos: Smallint);
1: (
Pos: TSmallPoint;
Result: Longint);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-64159
texHelp
2003-03-06 23:48
2003.03.20
Реальное колличество цветов в палитре TBitmap


6-64242
Sam Stone
2003-01-16 17:38
2003.03.20
HTTP


1-64086
Mitrofan
2003-03-10 10:03
2003.03.20
Прокрутка двух RichEdit ов одновременно


3-63939
Pat
2003-03-03 12:17
2003.03.20
Paradox ---> Access


3-63958
Kurt_
2003-02-27 14:53
2003.03.20
если а одной транзакции (в Адо между BeginTransaction и CommitTra