OnMouseWheelUp/Down nur einmal

[Bummi]

Ich würde FormMouseWheel mit einem Semaphore verwenden ....

Delphi-Quellcode:

procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := true;
  if not FisInWheel then
    try
      FisInWheel := true;
      if ssCtrl in Shift then
      begin
        Zoom := Zoom + (0.1 * Sign(WheelDelta));
        if Zoom = 0 then
          Zoom := 0.1;
      end
      else

        if ssShift in Shift then
        Rot := Rot + (5 * Sign(WheelDelta));
      
      UpdateDisp;
    finally
      FisInWheel := false;
    end;
end;