Mausrad und Fehler Bei Bereichsprüfung

[zeina]

Zitat von Klaus01:

.. in dem cODE sehe ich diesbezüglich keinen Fehler.
Wird an "WebOSMaps1.MapOptions.ZoomMap" noch an anderen Stellen
"herumgeschraubt"?

Grüße
Klaus

Danke...jetzt ist es geklappt.

Delphi-Quellcode:

procedure TOSMap.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if not WebOSMaps1.Focused then
  begin
    Handled := True;
    if (WheelDelta = 120) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
      WebOSMaps1.MapOptions.ZoomMap := (WebOSMaps1.MapOptions.ZoomMap + 1);
    if (WheelDelta = -120) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
      WebOSMaps1.MapOptions.ZoomMap := (WebOSMaps1.MapOptions.ZoomMap - 1);
  end;
end;