Mausrad und Fehler Bei Bereichsprüfung

[Klaus01]

.. und so?

Delphi-Quellcode:

procedure TOSMap.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

begin
if not WebOSMaps1.Focused then
  begin
     if (WheelDelta > 0) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1; // zommmap von 0..18
     if (WheelDelta < 0) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
  end;
end;

Grüße
Klaus