OnMouseWheel event in dbgrid

[JanRoza]

In my application which has a dbgrid (based on a dbf table) I show the current record number and total number of records in the stausbar.
As long as I use the keyboard to scroll through the dbgrid everything works fine and if I click on a cell with the mouse the correct info is shown as well but nothing happens when I scroll using the mouse wheel.
Any chance dbgrid will get a OnMousewheel event (like in Delphi) in the near future?
Or is there another way to tackle this?
(I'm using Lazarus 0.9.23 on Windows Vista)

Thanks for looking into this.
Jan Roza

[jesusr]

What events do you use to detect that something has changed?

[JanRoza]

I don't, the grid is readonly and only meant to browse through a table.
To the right of the grid the content of the selected record is shown in dbedit fields so there is no need for editing in the dbgrid itself.

All I'm looking for is a means to keep the current record number updated while scrolling through the dbgrid using the mouse wheel.
I like a challenge but I'm stuck with this one.

[jesusr]

does using the mousewheel have any effect in the grid?

[JanRoza]

Oh yes it has, rolling the wheel makes the selector scrolling up and down the grid nicely and the details of the record under the selector bar are shown in the dbedit fields on the right.
For now I manage the current record number via OnkeyUp, OnMouseMove and OnMouseUp but those events don't cover scrolling via the mouse wheel.

[jesusr]

I think you better use datasource.OnDataChange event to detect when the active record has changed, because if you later put a dbnavigator for example neither of OnKeyUp, OnMouseDown, OnMouseUp or OnMouseWheel will help you.

[JanRoza]

Thanks JesusR!
That's what I was looking for but missed it.
Your'e absolutely right your way is much better, I'll try it out as soon as I'm home again.
 
Jan

[JanRoza]

Yep, that datasource.OnDataChange suggestion was the solution I needed.
Works like a charm, so many thanks for pointing me in the right direction.

 
Jan