void __fastcall TForm1::FormCreate(TObject *Sender){ GMMap1->OnCenterChanged = &GMMapCenterChanged; GMMap1->OnRightClick = &GMMapRightClick;} void __fastcall TForm1::GMMapRightClick(TObject *Sender, TLatLng *LatLng, double X, double Y) { ClickedPoint.Lat = LatLng->Lat; ClickedPoint.Lng = LatLng->Lng; PopupMenu1->Popup(Mouse->CursorPos.x, Mouse->CursorPos.y);}
GMMap1->Active = true; // активируем картуGMMap1->DoMap(); // навигация на указанное место