Mit Mausrad nach links und rechts scrollen

[rollstuhlfahrer]

HI,

mit einer Maus mit einem 4 Wege-Scrollrad sollte man auch in alle 4 Wege scrollen können. Wie implementiere ich das jetzt in Delphi, dass ich auch die Events bekomm, wenn ich mit dem Mausrad nach rechts und links scrollen will?

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  Label1.Caption := IntToStr(WheelDelta);
end;

Das reagiert nur auf hoch und runter (120 / -120).

rollstuhlfahrer

[hathor]

Vielleicht ist das hier brauchbar:

http://ftp5.ru.freebsd.org/pub/FreeB...-1.0.20.tar.gz

http://www.google.com/codesearch?hl=...nvasViewer.pas

@Muhkuh: Du musst hier NICHT mit Lichtgeschwindigkeit antworten !!!

BTW: Der Text war länger als erlaubt...
Der 1. Link geht auch nicht..
Sch.....

[Die Muhkuh]

Delphi-Tags korrigieren bitte.