[讨论]怎样限制地图缩放的范围？

<P>默认的地图可以无限制的缩放，怎么样限制它缩放的范围呢？</P>

procedure TForm1.Map1MapViewChanged(Sender: TObject);
begin
if map1.Zoom<5 then
  begin
    map1.Zoom:=5;
  end
else if map1.zoom>6000 then
  begin
    map1.Zoom:=6000;
  end;
end;