1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// ---------- Wandelt Mouse-Wheel-Bewegungen in Cursur-Runter bzw. Cursor-Hoch-Messages um (nur TjvDBGrid) ------------------------------
Procedure TFormMain.HandleOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
  Case Msg.message Of
   WM_MOUSEWHEEL:
   Begin
      If  (Screen.ActiveForm.ActiveControl <> Nil)
      And (Screen.ActiveForm.ActiveControl.ClassName = 'TJvDBGrid')
      Then
      Begin // die Mousewheel Message wird in einen Tastendruck umgewandelt
         Msg.message := WM_KEYDOWN;
         Msg.lParam  := 0;
         If Msg.wParam > 0      Then
            Msg.wParam := VK_UP Else
            Msg.wParam := VK_DOWN;
         Handled := False;
      End;
   End; // WM_MOUSEWHEEL
  End; // Case
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

procedure TMF.MessageProc(var Msg: TagMsg; var Handled: Boolean);
var
   i: SmallInt;
   loDBG: TDBGrid;
begin
   Inc(giProzaufrufe);
   {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out}
   if not (Self.Visible) then
      Exit;
   if ActiveControl is TDBGrid then
      loDBG := TDBGrid(ActiveControl)
   else
   begin
      Handled := False;
      Exit;
   end;
   if Msg.message = WM_MOUSEWHEEL then
   begin
      Msg.message := WM_KEYDOWN;
      Msg.lParam := 0;
      try
         i := HiWord(Msg.wParam);
      except
         i := 0;
      end;
      if i > 0 then
         Msg.wParam := VK_UP
      else
      begin
         if loDBG <> nil then
            if not (loDBG.DataSource.DataSet.FindNext) then
            begin
               Msg.wParam := 0;
            end
            else
            begin
               Msg.wParam := VK_DOWN;
            end
         else
            Msg.wParam := VK_DOWN;
      end;
      Handled := False;
   end;
end;