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

Как поправить прокрутку в 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]

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

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.012 c