Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBGrid скроллинг [D6, MSSQL]

Pavel Denisov © (2002-09-18 10:42:00)
Приветствую, уважаемые !

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

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

Mike Kouzmine (2002-09-18 15:30:00) [1]
А меня это никогда и не напрягало. Не вижу проблемы. Работает - слава Аллаху, не работает - ему же слава.

sniknik (2002-09-18 15:26:00) [2]
а у меня перестало проворачивать грид после того как снес родные. но особо это меня не беспокоит :-)

Mike Kouzmine (2002-09-18 14:55:00) [3]
Дома нет, на работе да, но работает и там, и там.

sniknik (2002-09-18 14:48:00) [4]
У тебя наверно родные мышиные драйвера стоят? нет?

Mike Kouzmine (2002-09-18 14:38:00) [5]
А у меня и так работает, на стандарте.

MityaKost (2002-09-18 12:50:00) [6]
есть вариант в rxLib ;) Там все это есть

sniknik (2002-09-18 12:47:00) [7]
как вариант
делаеш тип
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;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »