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开发firemonkey应用程序时无法打开窗体的解决

Delphi idhttp post request

Delphi ado组件动态连接access数据库

Delphi idftp

Delphi xe 制作的萤光时钟,可改作屏保

Delphi sql server备份脚本

Delphi显示 jpg、png、gif 图片及 gif 动画

Delphi app检测智能手机震动

Delphi 计算文件大小

Delphi改变文件夹图标

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



打赏

取消

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

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

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

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

评论

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