Einzelnen Beitrag anzeigen

Thom

Registriert seit: 19. Mai 2006
570 Beiträge
 
Delphi XE3 Professional
 
#5

AW: Google Maps über COM (Component Object Model)

  Alt 28. Dez 2010, 03:48
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;
demo_4.jpg

Compilierte Demo:
Angehängte Dateien
Dateityp: zip Events.zip (198,8 KB, 424x aufgerufen)
Thomas Nitzschke
  Mit Zitat antworten Zitat