[SOLVED] TStringGrid - disable mouse wheel control

[big_M]

How could I disable any mouse wheel control on a TStringGrid?

The TStringGrid has a MouseWheelOption which can be set to either "mwGrid", which makes the wheel control the scroll bars, or to "mwCursor" which makes it control the cell selection/cursor. Unfortunately there is no "mwNone" to completely disable any control that the mouse wheel has.

Is there an other way to do this? Or would I have to create my own TStringGrid?

Btw, what I want to accomplish is to zoom in and out of the grid using ctrl+MW, with the MW having no other control in that moment. Setting the mouseWheelOption temporarily to an unfortunately not existing mwNone would be perfect.

[Blaazen]

You can do it this way:

Code: Pascal  [Select][+][-]

1. procedure TForm1.StringGrid1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
2.   var Handled: Boolean);
3. begin
4.   Handled:=True;
5. end;

[big_M]

Oh, great. Thank you