links/rechts scrollen mit einem Mausrad erkennen

[Helmi]

Hallo,

ich habe eine Maus (Logitech) mit deren Mausrad ich nicht nur rauf/runter scrollen kann, sondern auch links und rechts scrollen kann.

Wie kann ich mit einem Code abfangen ob links/rechts gescrollt wird?

[Helmi]

push

[rollstuhlfahrer]

unter Windows XP und älter wirst du das gar nicht bemerken können. Bei Windows Vista und höher sollte das aber gehen. OnMouseWheel vielleicht?

Bernhard

[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.

[Helmi]

Danke
der Codeschnipsel hat geholfen

[mleyen]

Worunter hast du das getestet?
Funktioniert das mit der Message auch unter XP / Win7?

Schön geholfen zu haben.

[Helmi]

bisher vista