WM_MOUSEWHEEL abfragen

[DeddyH]

Delphi öffnen, "Perform" eintippen, markieren -> F1 . Aber ich will mal nicht so sein:

Delphi-Quellcode:

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