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 http post json示例

Delphi xe10对json的解析应用

Delphi 在memo查找字符并定位

Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响

Delphi编程之win10桌面图标设置

Delphi通过窗口标题结束指定进程函数

Delphi 获取某个页面所有的链接

Delphi中interface接口的使用方法

Delphi中三种延时方法

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

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