Mausradgeschwindigkeit ermitteln und darauf reagieren???

[winx]

Hallo,

ist es mir irgendwie möglich, dass ich in einer EditBox (mit ner zahl)

a) auf Mausradbewegungen reagieren und immer den Wert um 1 hochzählen kann
b) je nach Geschwindigkeit um1,5,10 hochzählen kann???

danke,
winx

[bitsetter]

Hallo,

wenn du die Komponente TApplicationEvents auf das Formular ziehst und da in das Event onMessage folgenden Code einfügst, dann würde zumindest Punkt a) gehen.

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.hwnd= Edit1.Handle) and (Msg.message = WM_MOUSEWHEEL) then
    if Msg.wParam> 0 then
      Edit1.Text := inttostr(strtoint(Edit1.Text) + 1)
    else
      Edit1.Text := inttostr(strtoint(Edit1.Text) -1);
end;

Veraussetzung ist natürlich, dass im Feld auch immer eine Zahl steht.

[Robert Marquardt]

Schwierig, da die Mausradinformationen in Spruengen von 120 abgeliefert wird. Der Treiber der Maus liefert kleinere Werte, aber diese werden aufsummiert.

[winx]

was bedeutet das genau?

[vlees91]

Ich glaube, dass es ohne sich irgendwie in den Maustreiber einzubinden ist nicht möglich ist an genauere Werte als diese 120er Schritte zu kommen.

[Clobber the mob]

Delphi-Quellcode:

procedure TForm1.CalcMouseVel;
var MouseX, MouseY : integer;
begin
  // Compensate for window origin vs. screen origin.
  MouseX := Mouse.CursorPos.X - Form1.ClientOrigin.X;
  MouseY := Mouse.CursorPos.Y - Form1.ClientOrigin.Y;
  Label1.Caption := Format('Mouse velocity: %d, %d', [MouseVelX, MouseVelY]);
end;

So kann man sie ermitteln, wenn man das ganze durch einen Timer aulöst.

[Robert Marquardt]

Er will nicht die Mausgeschwindigkeit, sondern die Mausrad-Geschwindigkeit.
Man sollte die Mausrad-Messages im Application.OnMessage mithoeren und per GetMessageTime den Zeitpunkt der Ankunft der Message bestimmen. Mit den Daten kann man nun die aktuelle Mausradgeschwindigkeit einigermassen bestimmen.

[winx]

Hallo,

meine jcl Kompo hat ein Ereignis MouseWheelUp, aber leider springt da der Compiler nie rein :-(

procedure Tactionform.JvSpinEditDXMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin

showmessage(FloatToStr(JvSpinEditDX.Value));

end;

weiss jemand woran das liegen könnte?

danke

[Robert Marquardt]

Neue Frage neuer Thread.

[Luckie]

Zitat:

Zitat von Robert Marquardt

Neue Frage neuer Thread.

Und deswegen schliess eich hier mal. ;)