本文整理自网络，侵删。
这里头的例子代码，亲测有效。放一个 TSwitch 上去，拨动开关，触发代码，Android 8 的手机，会弹出 APP 申请权限的界面让用户选择是否给与 APP 权限。
这里要注意的问题是，上述代码在编译的时候，需要 uses 几个库：
1. System.Permissions
2. {$IFDEF ANDROID},
Androidapi.JNI.JavaTypes,
Androidapi.JNI.GraphicsContentViewText,
Androidapi.JNI.Location,
Androidapi.JNIBridge,
Androidapi.JNI.Os,
Androidapi.Helpers,
Androidapi.JNI.Provider;
{$ENDIF};
---------------------
procedure TLocationForm.swLocationSensorActiveSwitch(Sender: TObject);
begin
{$IFDEF ANDROID}
if swLocationSensorActive.IsChecked then
PermissionsService.RequestPermissions([JStringToString(TJManifest_permission.JavaClass.ACCESS_FINE_LOCATION)],
procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
{ activate or deactivate the location sensor }
LocationSensor1.Active := True
else
begin
swLocationSensorActive.IsChecked := False;
TDialogService.ShowMessage('Location permission not granted');
end;
end)
else
{$ENDIF}
LocationSensor1.Active := False;
end;
相关阅读 >>
Delphi combobox的属性和事件、及几个鼠标事件的触发
更多相关阅读请进入《Delphi》频道 >>
