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: