WM_MOUSEWHEEL abfragen

[DeddyH]

Ich denke, das Ganze lässt sich doch vereinfachen (aus dem Kopf):

Delphi-Quellcode:

procedure TForm1.WndMessage(var msg: TMessage);
begin
  case msg.Msg of
    WM_VSCROLL,
    WM_MOUSEWHEEL: SendMessage(SynEdit2.Handle, 
                               msg.Msg,
                               msg.wParam, 
                               msg.lParam);
  end;
  _OldProc(msg);
end;