Change base object to TCustomEdgeBrowser - inherit properies to allow the hiding of OnWebMessageReceived and presenting new event OnWebUnhandledMessageReceived Map onclick, onzoom listener events - New property OnMapClick and OnMapRightClick - Demo to show right click menu and adding a marker - Demo to have option on center on mouse click - Demo updated to change zoom edit value on map zoom event GotoLocation changed to have option to place marker.

Author: littleearth

Demo/GoogleMaps/MainForm.dfm

@@ -116,6 +116,15 @@ object formMain: TformMain
           #39'HYBRID'
           'TERRAIN')
       end
+      object cbCenterOnClick: TCheckBox
+        Left = 13
+        Top = 150
+        Width = 100
+        Height = 17
+        Caption = 'Center on click'
+        TabOrder = 5
+        OnClick = CheckBoxStreeViewClick
+      end
     end
     object GroupBox1: TGroupBox
       Left = 1
@@ -353,7 +362,7 @@ object formMain: TformMain
         Top = 15
         Width = 129
         Height = 128
-        ActivePage = TabSheet3
+        ActivePage = TabSheet2
         Align = alClient
         MultiLine = True
         TabOrder = 0
@@ -889,6 +898,10 @@ object formMain: TformMain
   object PopupMenu: TPopupMenu
     Left = 416
     Top = 264
+    object mnuAddMarker: TMenuItem
+      Caption = 'Add Marker'
+      OnClick = mnuAddMarkerClick
+    end
   end
   object cdsCustomers: TClientDataSet
     Aggregates = <>

Demo/GoogleMaps/MainForm.pas

@@ -101,6 +101,8 @@   TformMain = class(TForm)
     memoMarkerCustomJSON: TMemo;
     Label14: TLabel;
     memoMarkerInformation: TMemo;
+    cbCenterOnClick: TCheckBox;
+    mnuAddMarker: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure ButtonGotoAddressClick(Sender: TObject);
     procedure ButtonGotoLocationClick(Sender: TObject);
@@ -123,7 +125,12 @@   TformMain = class(TForm)
     procedure CheckBoxDirectionPanelClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure btnAddMarkerClick(Sender: TObject);
+    procedure mnuAddMarkerClick(Sender: TObject);
   private
+    FRighClickLatLng : TLatLng;
+    procedure OnMapClick(ASender: TObject; ALatLng : TLatLng);
+    procedure OnMapRightClick(ASender: TObject; ALatLng : TLatLng);
+    procedure OnMapZoom(ASender: TObject; AZoom : integer);
   public
     { Public declarations }
   end;
@@ -171,6 +178,29 @@ procedure TformMain.FormCreate(Sender: TObject);
   DestinationAddressMemo.Lines.Text := 'Via San Francesco 5, 20061 Carugate, Milano';
   FileEdit.Text := ExtractFilePath(Application.ExeName)+'..\..\Data\customer.xml';
   PageControlMarker.ActivePageIndex := 0;
+  EdgeGoogleMapViewer.OnMapClick := OnMapClick;
+  EdgeGoogleMapViewer.OnMapRightClick := OnMapRightClick;
+  EdgeGoogleMapViewer.OnMapZoom := OnMapZoom;
+end;
+
+procedure TformMain.OnMapClick(ASender : TObject;  ALatLng : TLatLng);
+begin
+  if cbCenterOnClick.Checked then
+  begin
+    EdgeGoogleMapViewer.GotoLocation(ALatLng, False)
+  end;
+end;
+
+procedure TformMain.OnMapRightClick(ASender : TObject; ALatLng : TLatLng);
+begin
+  FRighClickLatLng.Latitude := ALatLng.Latitude;
+  FRighClickLatLng.Longitude := ALatLng.Longitude;
+  PopupMenu.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
+end;
+
+procedure TformMain.OnMapZoom(ASender: TObject; AZoom: integer);
+begin
+  Zoom.Value := AZoom;
 end;
 
 procedure TformMain.FormDestroy(Sender: TObject);
@@ -198,6 +228,11 @@ procedure TformMain.MapTypeIdComboBoxChange(Sender: TObject);
   EdgeGoogleMapViewer.MapTypeId := TGoogleMapTypeId(MapTypeIdComboBox.ItemIndex);
 end;
 
+procedure TformMain.mnuAddMarkerClick(Sender: TObject);
+begin
+  EdgeGoogleMapViewer.PutMarker(FRighClickLatLng,'Added from right click menu');
+end;
+
 procedure TformMain.ShowMapButtonClick(Sender: TObject);
 begin
   EdgeGoogleMapViewer.GotoAddress(MemoAddress.Lines.Text);