Mausrad und Fehler Bei Bereichsprüfung

[zeina]

Zitat von 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

ja ,das ist funktioniert..Danke.
aber zoommap geht nicht in Ordnung.
sie folge nicht (1..2..3..4..5.......18)sonder(2..4..6..8)????