Delphi XE7中的运行时设置Android应用程序屏幕方向

本文整理自网络，侵删。

 
uses
  Androidapi.Helpers,
  Androidapi.JNI.GraphicsContentViewText;

procedure TForm1.ButtonLandscapeClick(Sender: TObject);
begin
  // 横向固定
  SharedActivity.setRequestedOrientation
    (TJActivityInfo.JavaClass.SCREEN_ORIENTATION_LANDSCAPE);
end;

procedure TForm1.ButtonPortraitClick(Sender: TObject);
begin
  // 纵向固定
  SharedActivity.setRequestedOrientation
    (TJActivityInfo.JavaClass.SCREEN_ORIENTATION_PORTRAIT);
end;

procedure TForm1.ButtonUserClick(Sender: TObject);
begin
  // 当前状态
  SharedActivity.setRequestedOrientation
    (TJActivityInfo.JavaClass.SCREEN_ORIENTATION_USER);
end;
 

相关阅读 >>

Delphi 测试字符串写入类: tstringwriter

Delphi 学习 sql 语句 - insert、update、delete

Delphi 解决android 9上无法使用http协议

Delphi cef4 忽略不安全网站

Delphi 获取指定进程中的～内存数据

Delphi webbrowser 释放注意事项

Delphi getmimetypefromfile 获取文件mime类型

Delphi添加任务栏右键菜单

Delphi 利用tcomm组件 spcomm 实现串行通信

Delphi文本加密解密

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

转载请注明出处：木庄网络博客 » Delphi XE7中的运行时设置Android应用程序屏幕方向