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实现拖动无标题窗口的5种方法

Delphi 取字符串中间

Delphi中string与pansichar转换

Delphi 时间戳与日期互转

Delphi木马生成技术

Delphi tdictionary 泛型如何排序

Delphi for 循环 downto用法

Delphi adotable1 链接mdb数据库

Delphi 利用createservice写与桌面交互的win32服务

Delphi idhttp下载html的代码(含错误处理)

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

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