disabled celll scroll in dbgrid,

[cpalx]

there is a "auto effect" in dbgrid, when i scroll the wheel mouse the rows move too, but i dont want it. How can i?

[VTwin]

Perhaps this:

MouseWheelOption := mwGrid

might do what you want.

Frederick

[cpalx]

but where?

[VTwin]

Sorry, that is defined in TCustomDrawGrid, not TCustomGrid, so is not in TDBGrid. I was using it in a TDrawGrid.

[cpalx]

Any idea?

[Blaazen]

Not very nice, but works (with TStringGrid):

Code: [Select]

procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  StringGrid1.Row:=StringGrid1.Row-1;
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  StringGrid1.Row:=StringGrid1.Row+1;
end;


[cpalx]

but does not work with dbgrid