- 人气:
- 放大
- 缩小
- 二维码
- 赞赏
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;