Лидеры

Галочки уберите

Вроде разобрался: В момент показа формы 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); } //---------------------------------------------------------------------------

новый андроид, новая sdk, новая делфи или с++ билдер )