Как поправить прокрутку в DBGrid

← →
svv1 (2002-08-21 15:02) [0]

Привет!
Вот какой вопрос: при работе мышкой со скролом (колесом) возникает интересная ситуация: выделение смещается а активная запись нет.

Нет ли способа чтобы при вращении скрола смещалась именно активная запись, ну и конечно выделенная ячейка?

Разработка: ADO и DBGrid

Другие компоненты не приемлемы :(

Заранее признателен

← →
Ученик (2002-08-21 15:18) [1]

procedure TForm1.GridMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
DBGrid1.DataSource.DataSet.MoveBy(1)
end;

procedure TForm1.GridMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Handled := True;
DBGrid1.DataSource.DataSet.MoveBy(-1)
end;

type
TProtectedDBGrid = class(TDBGrid);

procedure TForm1.FormCreate(Sender: TObject);
begin
with TProtectedDBGrid(DBGrid1) do begin
OnMouseWheelUp := GridMouseWheelUp;
OnMouseWheelDown := GridMouseWheelDown
end
end;

← →
svv1 (2002-08-21 16:08) [2]

Большое спасибо!
Все сработало!

← →
Александр Спелицин (2002-08-21 16:16) [3]

Поставьте драйвера к Вашей мыше от ее производителя. У меня такое было с Logitech MS48 на W2k Prof со стандартными мелкомягкими драйверами.

← →
svv1 (2002-08-21 16:52) [4]

Тоже спасибо!
Сам только что до этого допер.... ;)

Как поправить прокрутку в DBGrid Найти похожие ветки