Richedit Scrollbar Event

[martin_]

Habe es so gemacht:

Delphi-Quellcode:

procedure FormCreate(Sender: TObject);
procedure redtWndProc(var Message: TMessage);

procedure TFormxx.FormCreate(Sender: TObject);
begin
  FOldMemoProc := redt1.WindowProc;
  redt1.WindowProc := redtWndProc;
end;

procedure TFormxx.redtWndProc(var Message: TMessage);
begin
  if ((Message.Msg = WM_VSCROLL)or (Message.Msg = WM_HSCROLL)) then
  begin
    ShowMessage('scroll');
  end
  else
    FOldMemoProc(Message);
end;

Das funktioniert allerdings nur, wenn ich mit der Maus die Scrollbar auswähle. Scrollen mit dem Mausrad funktioniert nicht. Benötige ich da noch weitere Nachrichten? oder ?