delphi XE5 使用 Android 内置函数几个小测试


本文整理自网络,侵删。

 断断续续的摸了几天。

发现了 c:\Program Files (x86)\Embarcadero\RAD Studio\12.0\source\rtl\android\ 路径 

然后稍微试了一下

如用 uses FMX.Platform.Android 这个 unit

结束 Android 程式,相当於 Application.Terminate


procedure TForm1.Button1Click(Sender: TObject);
     
begin
     
  MainActivity.finish;
     
end;
将 Activity 移到后面,相当於 Form1.Hide;

procedure TForm1.Button2Click(Sender: TObject);
    
begin
    
  MainActivity.moveTaskToBack(true)
    
end;
如用 uses Androidapi.JNI.GraphicsContentViewText 这个 unit

回到主画面

procedure TForm1.Button3Click(Sender: TObject);
   
var
   
  Intent: JIntent;
   
begin
   
  Intent:= TJIntent.Create;
   
  Intent.setAction(TJIntent.JavaClass.ACTION_MAIN);
   
  Intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME);
   
  Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
   
  MainActivity.startActivity(Intent);
   
end;

相关阅读 >>

Delphi 将自己的app.ico应用程序图表添加到dephi资源文件res中

Delphi timage保存图片到stream及从stream中取图片

crossbow病毒开放源代码-熊猫烧香源始代码

Delphi dbgrid上设置选择项

Delphi 如何将memo或richedit保存为utf 8文本文件?

Delphi 通�^窗口句柄或窗口标题得到进程句柄

Delphi工具之winsight

Delphi fullscreen全屏

floattostr问题 保留小数位

Delphi wmi 取显卡gpu信息

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...