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

Вниз

DBGrid скроллинг   Найти похожие ветки 

 
Pavel Denisov   (2002-09-18 10:42) [0]

Приветствую, уважаемые !

Не подскажет ли кто умную мысль, как мышиным колесом можно прокручивать записи в DBGrid вверх/вниз, в пределах экрана все работает, а вот когда нужно увидеть следующую запись то не работает. Источник данных DataSet, берет данные из ADOQuery.

Заранее благодарен.


 
sniknik ©   (2002-09-18 12:47) [1]

как вариант
делаеш тип
MyGreed = class(TDBGrid);

опиши события например
procedure TForm1.MouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if Sender.ClassName = "TDBGrid" then ADODataSet1.Next;
end;

procedure TForm1.MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if Sender.ClassName = "TDBGrid" then ADODataSet1.Prior;
end;

при создании формы
MyGreed(DBGrid1).OnMouseWheelDown:= MouseWheelDown;
MyGreed(DBGrid1).OnMouseWheelUp:= MouseWheelUp;

в простейшем варианте будет работать, но с перерисовкой грида надо чтонибудь сделать (тут были примеры поищи)



 
MityaKost   (2002-09-18 12:50) [2]

есть вариант в rxLib ;) Там все это есть


 
Mike Kouzmine   (2002-09-18 14:38) [3]

А у меня и так работает, на стандарте.


 
sniknik ©   (2002-09-18 14:48) [4]

У тебя наверно родные мышиные драйвера стоят? нет?


 
Mike Kouzmine   (2002-09-18 14:55) [5]

Дома нет, на работе да, но работает и там, и там.


 
sniknik ©   (2002-09-18 15:26) [6]

а у меня перестало проворачивать грид после того как снес родные. но особо это меня не беспокоит :-)


 
Mike Kouzmine   (2002-09-18 15:30) [7]

А меня это никогда и не напрягало. Не вижу проблемы. Работает - слава Аллаху, не работает - ему же слава.



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
4-32064
IrcOp
2002-08-23 23:10
2002.10.10
SetCapture


1-31784
sanpav
2002-09-27 16:22
2002.10.10
Как с помощью компонента TTaskItem создать задачу в Outlook?


1-31700
ksan
2002-09-30 20:07
2002.10.10
контекстное меню


1-31774
.JOHN.
2002-10-01 18:22
2002.10.10
Подскажите новичку


1-31757
Дмитрий К.К.
2002-09-30 23:43
2002.10.10
Creation Order