本文整理自网络，侵删。
断断续续的摸了几天。
发现了 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 新建文件 复制文件 重命名文件名时 文件存在自动重命名
更多相关阅读请进入《Delphi》频道 >>
