links/rechts scrollen mit einem Mausrad erkennen

[mleyen]

Delphi-Quellcode:

procedure TForm1.aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean);
const
  WM_MOUSESCROLLHORZ = 526;
begin
  Handled := False;

  if Msg.message = WM_MOUSESCROLLHORZ then
  begin
    if Msg.wParam > 0 then
      mmo1.Lines.Add('Scrolled right')
    else
      mmo1.Lines.Add('Scrolled left')
  end;
end;

So gehts unter Vista.
Woanders kann ich es momentan nicht testen.