Mausrad

[JDS]

Wer kann mir beim Abfragen des Mausrads helfen?
Das Abfragen der Mausbuttons klappt bei mir. Jetzt fehlt das Rad.
T: 8914539
[e-mail]

Vielen Dank! Aber "TForm1" ist unbekannt!

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

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

[jaenicke]

Zitat:

Zitat von JDS (Beitrag 1537125)

Vielen Dank! Aber "TForm1" ist unbekannt!

Das war lediglich ein Beispiel. Du musst die Ereignisse in deinem Formular zuweisen:
OnMouseWheel, OnMouseWheelUp, OnMouseWheelDown, ...