本文整理自网络,侵删。
断断续续的摸了几天。
发现了 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中取图片
Delphi 如何将memo或richedit保存为utf 8文本文件?
更多相关阅读请进入《Delphi》频道 >>