1
23
45
67
89
1011
1213
1415
1617
1819
2021
2223
2425
2627
2829
3031
3233
3435
3637
3839

// Première solution : scroll de 3 lignes (valeur de L)
 procedure TForm1.RichEdit1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);var
  L: integer;begin
  if WheelDelta > 0 then L:= -3 else L:= 3;  RichEdit1.Perform(EM_LINESCROLL, 0, L);
end; 
// Deuxième solution :  
//Placez dans la section private de votre Form principale :      procedure AppMessage(var Msg: TMsg; var Handled: boolean);
 // Dans l'événement OnCreate de votre Form principale :
     Application.OnMessage:= AppMessage; 
// Implémentez la procedure AppMessage comme ceci :procedure TForm1.AppMessage(var Msg: TMsg; var Handled: boolean);
var  P: TPoint;
  R: TRect;  L: integer;
begin  if (Msg.Message = WM_MOUSEWHEEL) and (Screen.ActiveForm = Form1) then
  begin    // on regarde si la souris est au-dessus du RichEdit...
    P:= ScreenToClient(Mouse.CursorPos);    with RichEdit1 do R:= Rect(Left, Top, Left + Width, Top + Height);
    if PtInRect(R, P) then    // ...c'est le cas, on envoie le message
    begin       if Msg.wParam > 0 then L:= -3 else L:= 3;
         RichEdit1.Perform(EM_LINESCROLL, 0, L);    end;
  end;end;