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 with do和for do语句

Delphi fmx中获取窗口比例

Delphi getcurrentdir 获取当前文件夹

Delphi 详解 enumwindows 与 enumwindowsproc

Delphi 通过控件句柄获取控件实例

Delphi静态和动态调用dll的实例

Delphi 将tbitmap与tgpimage转换

Delphi 安装apk

Delphi shutdown() 关机

Delphi 检测服务器地址是否有效

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

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