Google Maps über COM (Component Object Model)

[Thom]

Hallo Peter,

kein Problem! Marker können über das Options-Objekt verschiebbar gemacht werden

Delphi-Quellcode:

var
  Opts: TMarkerOptions;
begin
  with Script do
  begin
    Opts:=TMarkerOptions.Create;
    Opts.Draggable:=true;
    Opts.Animation:=Google.Maps.Animation.Bounce; //<- Animation am Ende des Drag-Vorganges
    Marker:=New(Google.Maps.Marker(Opts));
    Marker.OnStartDrag:=OnStartDrag; //<- Event-Handler, der den Beginn der Verschiebung meldet
    Marker.OnDrag:=OnDrag; //<- Event-Handler während der Verschiebung
    Marker.OnDragEnd:=OnDragEnd; //<- Event-Handler, der das Ende der Verschiebung signalisiert
    [...]
  end;
end;

oder direkt über das Marker-Objekt:

Delphi-Quellcode:

  Marker.SetDraggable(true)
  [...];

OK - da kam meine Antwort zu spät...