Mausrad

[Delphi.Narium]

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if WheelDelta > 0 then
    ShowMessage('Mausrad nach oben gedreht')
  else
    ShowMessage('Mausrad nach unten gedreht');
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ShowMessage('Mausrad nach oben gedreht');
  Handled := True;
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  ShowMessage('Mausrad nach unten gedreht');
  Handled := True;
end;

Der Parameter WheelDelta gibt an, in welche Richtung das Mausrad gedreht wurde. Ein positiver Wert bedeutet, dass das Rad nach oben gedreht wurde, während ein negativer Wert bedeutet, dass das Rad nach unten gedreht wurde.