Текущий архив: 2003.03.24;
Скачать: CL | DM;
Вниз
Не работает скроллинг в 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;
← →
sniknik © (2003-03-04 19:06) [4]http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1046422497&n=1
хотел чтото еще написать, но нет слов.. :о((, чего еще надо? все расписано.
← →
Бедный Йорик (2003-03-04 21:34) [5]а в ADOQuery ExecuteOptions asyncExecute=True?...только из за этого и глючит...убедись убери эту опцию и все заработает
Страницы: 1 вся ветка
Текущий архив: 2003.03.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.025 c
