Не работает скроллинг в DBGrid. Как это устранить?

← →
IlyaGer (2003-03-04 18:46) [0]

Здравствуйте!
Не работает скроллинг в DBGrid. Как это устранить?

← →
Mike_Goblin © (2003-03-04 18:50) [1]

Код в студию

← →
IlyaGer (2003-03-04 18:55) [2]

Да какой код, обычный DBGrid связян с ADOQuery. Скроллинг с помощью мыши не дает результата, остается выбранной в ADOQuery запись на которой и находились. Кстати в RxDBGrid такого глюка нет, но это не интересно, надо убрать его в DBGrid.

← →
theodor_iv (2003-03-04 18:57) [3]

Если речь идет о мышином колесике, то нужно следующее:

type TDBGrid1 = class(TDBGrid) private { Private declarations } protected { Protected declarations } function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override; function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override; public { Public declarations } published { Published declarations } end; function TDBGrid1.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; begin Result := true; // inherited не вызываем принципиально -- в нашем случае он только мешает DataSource.DataSet.Next; end; function TDBGrid1.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; begin Result := true; DataSource.DataSet.Prior; end;

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1046422497&n=1

хотел чтото еще написать, но нет слов.. :о((, чего еще надо? все расписано.

← →
Бедный Йорик (2003-03-04 21:34) [5]

а в ADOQuery ExecuteOptions asyncExecute=True?...только из за этого и глючит...убедись убери эту опцию и все заработает

Не работает скроллинг в DBGrid. Как это устранить? Найти похожие ветки