Скрол (мышыный) в гриде

← →
Barsky © (2006-01-11 13:18) [0]

Есть DBGrid (RowSelect=True).
Если перемещаться по строкам кликами или кнопками, то все ок.
Если же пробывать использывать скрол на мышке, то перемещается только полоса выделения (синянькая), а треугольничек слева (в фиксиорованном столбце) стоит на прежнем месте. Как починить?

← →
Германн © (2006-01-11 15:22) [1]

Посмотреть как это сделано в RxLib и сделать по образу и подобию.

← →
Barsky © (2006-01-11 15:43) [2]

Тоесть обязательно качать RxLib, иначе никак?

А как можно узнать на какая запись выделена?
Добавлю что MultiSelect=False

← →
Германн © (2006-01-11 15:58) [3]

> Тоесть обязательно качать RxLib, иначе никак?

Да нет, необязательно.
Но - полезно. И не только для этого сабжа.

← →
Barsky © (2006-01-11 16:06) [4]

Я не спорю что Rx хорошая библиотека, но предпочитаю не пользоваться.

Как можно решить поставленную мной задачу? Есть идеи?
Желательно ничего не качая...

← →
Savek (2006-01-11 16:24) [5]

Где-то был выложен вот такой код, у меня работает:

procedure TBaseForm.AppMessage(var Msg: TMsg; var Handled: Boolean); var I : SmallInt; begin if Msg.message= WM_MOUSEWHEEL then begin Msg.message:=WM_KEYDOWN; Msg.lParam:=0; i:=HiWord(Msg.wParam); if i>0 then Msg.wParam:=VK_UP else Msg.wParam:=VK_DOWN; Handled:=false; end; end; procedure TBaseForm.FormCreate(Sender: TObject); begin Application.OnMessage:=BaseForm.AppMessage; end;

> Я не спорю что Rx хорошая библиотека, но предпочитаю не
> пользоваться.

Дык я же не заставляю пользоваться. Я советую посмотреть в её исходниках как там реализовано. А там реализовано грамотно.

Скрол (мышыный) в гриде Найти похожие ветки