Memo's synchron scrollen

[neolithos]

da gibt es noch eine Nachricht lass mich raten WM_MOUSEWHEEL oder so!

Delphi-Quellcode:

with Message do
  case Msg of
       WM_VSCROLL, WM_HSCROLL:
         Memo.Perform(Msg, WParam, LParam);
  end;

eigentlich sollte das das Maus Rad mit einschließen...