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;

推荐分享