Google Maps über COM (Component Object Model)

[Thom]

Beispiel 4
Verwendung der Karten-Events

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
//...
    with Map do
    begin
      OnBoundsChanged:=MapBoundsChanged;
      OnCenterChanged:=MapCenterChanged;
      OnClick:=MapClick;
      OnDblClick:=MapDblClick;
      OnDrag:=MapDrag;
      OnDragEnd:=MapDragEnd;
      OnDragStart:=MapDragStart;
      OnIdle:=MapIdle;
      OnMapTypeIDChanged:=MapMapTypeIDChanged;
      OnMouseMove:=MapMouseMove;
      OnMouseOut:=MapMouseOut;
      OnMouseOver:=MapMouseOver;
      OnProjectionChanged:=MapProjectionChanged;
      OnResize:=MapResize;
      OnRightClick:=MapRightClick;
      OnTilesLoaded:=MapTilesLoaded;
      OnZoomChanged:=MapZoomChanged;
    end;
  end;
end;

Compilierte Demo: