android长按图片弹出菜单,[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，编译一次就有了。

找到一下字段，插入一节：

......

......

第二步：

新建立一个 XML 文件，编码格式为 UTF-8，将以下内容复制进去，然后命名为 shortcuts.xml

在 Deployment 中加进去，remotepath 设置为 res\xml\

android:shortcutId="writedailyid"

android:enabled="true"

android:icon="@drawable/writedaily_128"

android:shortcutShortLabel="@string/writedaily"

android:shortcutLongLabel="@string/writedaily"

android:shortcutDisabledMessage="@string/writedaily_disabled">

android:action="android.intent.action.WRITEDAILY"

android:targetClass="com.embarcadero.firemonkey.FMXNativeActivity"/>

第三步：

新建立一个 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\ )

这里是菜单

菜单已禁用

第四步：

制作一个 128x128 的图片，作为菜单图标，PNG 格式，命名为 shortcuts.xml 中的 相同，例如 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 到手机上，测试一下看？