Вроде разобрался:
В момент показа формы FormShow вызываю метод проверки прав доступа CheckPermissions. А в нём передаётся имя метода, который будет сообщать о результате действий пользователя LocationPermissionRequestResult
//---------------------------------------------------------------------------
void __fastcall TForm2::CheckPermissions(TObject *Sender)
{ // Проверка прав доступа
String READ_EXTERNAL_STORAGE;
READ_EXTERNAL_STORAGE=JStringToString(TJManifest_permission::JavaClass->READ_EXTERNAL_STORAGE);
//PermissionsService->DefaultService->RequestPermissions(READ_EXTERNAL_STORAGE);
DynamicArray<String> permissions;
permissions.Length = 1;
permissions[0] = READ_EXTERNAL_STORAGE;
PermissionsService()->RequestPermissions(permissions,LocationPermissionRequestResult);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::LocationPermissionRequestResult(TObject *Sender, const DynamicArray<String> APermissions, const DynamicArray<TPermissionStatus> AGrantResults)
{ // 2 permissions involved: ACCESS_COARSE_LOCATION and ACCESS_FINE_LOCATION
bool LocationPermissionGranted = (AGrantResults.Length == 1) && (AGrantResults[0] == TPermissionStatus::Granted);
if (LocationPermissionGranted) ;//ShowMessage("User granted permission");
else {
if (Lang=="en") ShowMessage("User denied permission!");
else ShowMessage("Пользователь запретил доступ!");
Form2->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
// Проверка прав доступа
CheckPermissions(this);
}
//---------------------------------------------------------------------------
Александр Алексеев отреагировална OnePeople в Не добавляется иконка приложения для Android
Александр Алексеев получил реакцию от Ingalime в Как правильно задать разрешения приложению на доступ к файлам?