Mausrad

[BigAl]

Und um sinnvoll mit dem Wert zu arbeiten teile ich normalerweise noch durch WHEEL_DELTA. Also:

Delphi-Quellcode:

var
  WheelOffset: Single;
begin
  WheelOffset := WheelDelta / WHEEL_DELTA;
  ...
end;

Oder falls es mit Botschaftsverarbeitung sein soll:

Delphi-Quellcode:

interface

class TSomething(must be a successor of WinControl)
protected
  procedure WMMouseWheel(var AMsg: TWMMouseWheel); message WM_MOUSEWHEEL;
end;

implementation

procedure TSomething.WMMouseWheel(var AMsg: TWMMouseWheel);
// mouse wheel
var
  WheelOffset: Single;
begin
  inherited;

  WheelOffset := AMsg.WheelDelta / WHEEL_DELTA;
  ...
end;

TSomething sollte dann natürlich irgendwo von TWinControl abgeleitet worden sein...