Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c