Wie Fehler suchen: WM_MouseWheel nicht in WindowProc()

[toms]

Hallo,

Warum verwendest du nicht einfach das OnMouseWheel der Form und scrollst das RichEdit, wenn es nicht den Focus besitzt?

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
   with RichEdit1 do
   if not Focused then
   begin
     if WheelDelta > 0 then
       Perform(WM_VSCROLL, MAKELPARAM(SB_LINEUP, 0), 0)
     else
       Perform(WM_VSCROLL, MAKELPARAM(SB_LINEDOWN, 0), 0);
     Perform(WM_VSCROLL, MAKELPARAM(SB_ENDSCROLL, 0), 0);
     Handled := True;
   end;
end;