Google Maps über COM (Component Object Model)

[Thom]

Beipiel 2
Deaktivierung aller Steuerelemente und jeder Interaktion. Damit wird quasi eine statische Karte erzeugt.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  Options: TMapOptions;
begin
  WebBrowser1.Navigate('about:blank');
  with TScript.Create(WebBrowser1) do                            //Skript-Objekt erstellen
  begin
    LoadBrowserFromSource(WebBrowser1,                           //leere Seite:
                          HTMLPage(true,                         //- MIT Google Maps API
                                   false,                        //- OHNE GPS-Sensor
                                   'div_map'),                   //- MIT Div-Container für die Karte
                          true);                                 //warten, bis die Seite komplett geladen wurde
    Options:=TMapOptions.Create;                                 //Options-Objekt anlegen
    with Options do
    begin
      Center:=Google.Maps.LatLng(-33,151);                       //Kartenzentrum
      DisableDefaultUI:=true;                                    //alle Kontrollelemente ausschalten
      DisableDoubleClickZoom:=true;                              //kein Zoom per Doppelklick
      Draggable:=false;                                          //Karte nicht verschiebbar
      KeyboardShortcuts:=false;                                  //keine Tastenkürzel
      MapTypeID:=Google.Maps.MapTypeId.Roadmap;                  //Kartentyp
      ScrollWheel:=false;                                        //kein Zoom über Mausrad
      Zoom:=4;                                                   //Zoom
    end;
    Google.Maps.Map(Document.GetElementById('div_map'),Options); //Karten-Objekt anlegen
  end;
end;

Compilierte Demo: