delphi XE5 使用 Android 内置函数几个小测试  
官方Delphi 学习QQ群: 682628230(三千人)
频道

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;

推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.037949085235596 seconds