Google Maps über COM (Component Object Model)

[Thom]

Beispiel 3
Ein- und Ausschalten der Steuerelemente.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  Options: TMapOptions;
begin
  WebBrowser1.Navigate('about:blank');
  Script:=TScript.Create(WebBrowser1);                           //Skript-Objekt erstellen
  with Script do
  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(-28.643387,153.612224);         //Kartenzentrum
      MapTypeControl:=true;                                      //Kartentyp-Kontrolle sichtbar
      with MapTypeControlOptions do
      begin
        Style:=Google.Maps.MapTypeControlStyle.Dropdown_Menu;    //Kartentyp-Kontrolle als aufklappbares Menü
        Position:=Google.Maps.ControlPosition.Top_Left;          //Kartentyp-Kontrolle links oben
      end;
      NavigationControl:=true;                                   //Navigationskontrolle sichtbar
      with NavigationControlOptions do
      begin
        Style:=Google.Maps.NavigationControlStyle.Android;       //Navigationskontrolle im Android-Design
        Position:=Google.Maps.ControlPosition.Bottom;            //Navigationskontrolle unten in der Mitte
      end;
      ScaleControl:=true;                                        //Maßstab sichtbar
      with ScaleControlOptions do
        Position:=Google.Maps.ControlPosition.Top_Right;         //Maßstab rechts oben
      StreetViewControl:=true;                                   //StreetView-Kontrolle sichtbar
      MapTypeID:=Google.Maps.MapTypeId.Roadmap;                  //Kartentyp Straße
      Zoom:=12;                                                  //Zoom
    end;
    Google.Maps.Map(Document.GetElementById('div_map'),Options); //Karten-Objekt anlegen
  end;
end;

Compilierte Demo: