onMouseWheel-Ereignis nur einmal

[himitsu]

Moin ihr Wissenden.

Also ich verwende mal wieder dieses nette, im Form eingebaute Mausereignis für's Scrollrad und "leider" wird ja das Ereignis immer mehrmals aufgerufen. Also je nachdem, was in Windows/Maustreiber eingestellt ist (bei mir jeweils 3-mal pro Scrolleinheit, oder wie man das nennt).

Ich möchte das Scrollrad aber nicht zum Scrollen verwenden, wo dieses Verhalten ja nicht so stört, sondern zum weiterschalten eines Zählers. und da macht sich das nicht so gut.


Und nun meine Frage: Wie kann ich es also anstellen, so dass das Ereignis nur einmal aufgerufen wird, oder wie man das sonst noch beheben kann?


Ich könnte das ja über einen internen Zähler beheben, aber das Intervall zum Auslösen des Ereignisses von Hand einzustellen ist auch nicht Ideal.

[MrKnogge]

du zählst ne variable hoch, ist diese bei 3 angelangt setzt du sie wieder auf 0 und deinen Zähler um eins hoch.

[Markus K.]

Hallo himitsu,
vielleicht hilft dir die Eigenschaft WheelAccumulator weiter.

Delphi-Quellcode:

begin
     WheelAccumulator:=1;
end;

Tschüß Markus

[himitsu]

WheelAccumulator hilft leider auch nichts - es ändert sich nichts.


@MrKnogge:
Das könnte ich ja machen, aber wenn das Programm z.B. auf 'nem anderen Rechner, also mit 'nem anderen Wert im Treiber/Windows läuft, dann stimmt es beim Zählen nicht mehr.

[MrKnogge]

man kann doch bestimmt herausfinden, wieviele Schritte pro Scrolleinheit ausgeführt werden sollen.

[Markus K.]

Hier ist noch eine andere Variante von mir.

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
     if Handled=False then
     begin
          Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
          Handled:=True;
     end;
end;

Tschüß Markus

[himitsu]

Ich könnte ja über die Zeit messen, wieviele Schritte gemacht werden - also so lange zählen, bis mal 'ne größere Pause zwischen den Aufrufen ist, aber dann geht die Funktion nicht von Anfang an richtig.

Deshalb hoffe ich ja, dass es eine bessere Möglichkeit gibt.

[himitsu]

Jo, das hilft,

aber bei mir reicht es schon zu, wenn ich nur

Delphi-Quellcode:

Handled := True;

in die Prozedur aufnehme.

Die If-Abfrage brauch ich nicht, es geht auch so.



Also Danke für die Hilfe.