[Firemonkey + Android]长按图标弹出快捷菜单

Screenshot_20190815-132542.jpg

参考来源：

https://blog.andreamagni.eu/2019/02/how-to-add-android-app-shortcuts-to-a-fmx-application

第一步：
修改工程根目录下面的 AndroidManifest.template.xml，如果没有这个文件，按一下 Ctrl + F9，编译一次就有了。
找到一下字段，插入一节：

            ......
            </intent-filter> 
            <meta-data android:name="android.app.shortcuts" android:resource="@xml/shortcuts" />
        </activity>
            ......

第二步：
新建立一个 XML 文件，编码格式为 UTF-8，将以下内容复制进去，然后命名为 shortcuts.xml
在 Deployment 中加进去，remotepath 设置为 res\xml\

<?xml version="1.0" encoding="utf-8"?>
<shortcuts xmlns:android="http://schemas.android.com/apk/res/android">
  <shortcut
    android:shortcutId="writedailyid"<!--这个是唯一的 id，不能重复-->
    android:enabled="true"
    android:icon="@drawable/writedaily_128"<!--这个是快捷菜单左边显示的图标，大小为128x128-->
    android:shortcutShortLabel="@string/writedaily"<!--这个是显示的短标题-->
    android:shortcutLongLabel="@string/writedaily"<!--这个是显示的长标题-->
    android:shortcutDisabledMessage="@string/writedaily_disabled"><!--这个是禁用后菜单的标题-->
    <intent
        android:action="android.intent.action.WRITEDAILY"<!--重要！这个是你的App获取菜单点击后的返回值->
        android:targetPackage="com.sail2000studio.dailybook"<!--重要！这个是 APP 的名称-->
        android:targetClass="com.embarcadero.firemonkey.FMXNativeActivity"/><!--这个不能动-->
    <categories android:name="android.shortcut.conversation"/><!--这个不能动-->
    </shortcut>
</shortcuts>

第三步：
新建立一个 XML 文件，编码格式为 UTF-8，将以下内容复制进去，然后命名为 strings.xml 保存到工程根目录下
（注意：在 delphi 10.3.2 前例如 10.3.1，工程里面的 Deployment 是不含有 strings.xml 的，delphi 10.3.2开始自动有了，烦恼开始来了...）。在 delphi 10.3.2不要在 Deployment 中加入，即使加入，也会被 delphi 用自己的干掉的，会导致找不到对应的资源而编译失败。（如果是10.3.1 可以加，remote path设置为 res\values\ ）

<?xml version="1.0" encoding="utf-8"?>
<resources xmlns:android="http://schemas.android.com/apk/res/android">
    <!--注意，这里的name="writedaily"与上面第二步的 shortcuts.xml 某些字段是一一对应的 -->
    <string name="writedaily">这里是菜单</string><!--菜单显示的文字-->
    <string name="writedaily_disabled">菜单已禁用</string> <!--禁用菜单后显示的文字--> 
</resources>

第四步：
制作一个 128x128 的图片，作为菜单图标，PNG 格式，命名为 shortcuts.xml 中的 <writedaily_128>相同，例如 writedaily_128.png，在 Deployment 中加入，remote path 设置为 res\drawable
第五步：
编写代码响应菜单

var
  s: string;
  s := JStringToString(TAndroidHelper.Activity.getIntent.getAction);

需要引用单元：

uses
  Androidapi.JNI.App,
  Androidapi.JNI.JavaTypes,
  Androidapi.Helpers

第六步：
编译工程，编译完成后，去 Android\debug 或 Android\release 的目录中， 用上面的 strings.xml 覆盖掉 delphi 自己搞出来的 strings.xml（麻烦！）。
第七步：
在 Deployment 的工具列，按一下 Deploy 发布 Apk，完成后，安装 Apk 到手机上，测试一下看？