Mausrad und Fehler Bei Bereichsprüfung

[zeina]

Zitat von Klaus01:

Zitat von zeina:

Guten Tag,
ich habe in meinem einen Fehler bei Bereichsprüfung.
kann jemanden mir dabei helfen??
Danke im Voraus.

Delphi-Quellcode:

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

begin
if WebOSMaps1.Focused = true then exit; // wenn im Focus, dann nichts tun, da dann sowieso auf das Mausrad reagiert wird
   if (WheelDelta=120) then
    WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1;   // zommmap von 0..18
   if (WheelDelta =-120)then
    WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
end;

Vielleicht klappt es 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=120) and (WebOSMaps1.MapOptions.ZoomMap < 18) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap +1; // zommmap von 0..18
     if (WheelDelta =-120) and (WebOSMaps1.MapOptions.ZoomMap > 0) then
       WebOSMaps1.MapOptions.ZoomMap := WebOSMaps1.MapOptions.ZoomMap -1;
  end;
end;

Grüße
Klaus

vielen Dank für die Hilfe.Es ist geklappt.
Aber jetzt tritt ein neues Problem auf:
es macht zoommap nicht +1 oder -1!! für jeder Mausrad geht es(2 --> 4--> 8-->12 -->16) nicht (1 --> 2--> 3-->4......)????