Przewijanie w DBGridzie

Witam

W jaki sposób zablokować / przechwycić przewijanie w DBGridzie (Delphi 5) jeżeli przwijamy jego zawartość przy użyciu "kółka" do przewijania pionowego z myszki?

Wejdź na stronę www.softsale.com.pl coś tam było na ten temat.

Wykrycie kółka: zrób moduł:

unit MyDBGrids;

interface

uses Classes, DBGrids;

type

  TMyDBGrid = class(TDBGrid)
  published
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Data Controls', [TMyDBGrid]);
end;

end.

i zainstaluj go.

moze to wykrywanie kolka dodac do gotowcow lub porad :)

tak akurat mi wyszlo :)
aby było szybciej, kopiowałem to z Delphi po paru kliknięcuiach i wpisaniu trzech linijek