Как сделать событие на колёсико мыши?

[Аццкий прогер]

Мне нужно для компонента dbGrid (Delphi) сделать свою реакцию на прокрутку колеса мыши (вниз и вверх отдельно).

[SERG1980]

Посмотри св-ва

procedure TForm1.DBGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
//Колесо вниз
end;

procedure TForm1.DBGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
//Колесо вверх
end;

[Stilet]

Автор, если нет собитый описанных Serg1980(у меня например нет в Д6) то можно так

 TDBGrid = class(DBGrids.TDBGrid)
   procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;
....
procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
 Form1.Caption:=IntToStr(Message.Pos);
 Form1.ADOTable1.MoveBy(Message.Pos-Form1.ADOTable1.RecNo);
end;