Wie Fehler suchen: WM_MouseWheel nicht in WindowProc()

[toms]

Zitat von Schwedenbitter:

Ich hatte Form.OnMouseWheel bereits am Start. Allerdings würde ich gern das Scrollverhalten von TRichEdit 1:1 kopieren. Dazu gehört eben auch, dass es langsam anfängst zu scrollen und das scrollen auch wieder langsam endet. Das scrollen wirkt damit weicher.

So scrollt es nach meinem Empfinden genau so "smooth":

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Handled := True;
    SendMessage(RichEdit1.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
  end;
end;