Здравствуйте.
Точки останова показывают что событие LocationChanged не вызывается. Разрешения Access coarse location and Access fine location установлены. Что еще надо сделать?
void __fastcall TForm1::LocationSensor1LocationChanged(TObject *Sender, const TLocationCoord2D &OldLocation,
const TLocationCoord2D &NewLocation)
{
String LGoogleMapsURL = "https://maps.google.com/maps?q=%s,%s";
Label1->Text = String().sprintf(L"%2.5f", NewLocation.Latitude);
Label2->Text = String().sprintf(L"%2.5f", NewLocation.Longitude);
TVarRec vr[] = {Label1->Text, Label2->Text};
WebBrowser1->Navigate(Format(LGoogleMapsURL, vr, 2));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
LocationSensor1->Active = true;
}