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;