秋·风

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

在OnJNIPrompt、OnRotate按下面的添加就可以强制指定横屏或竖屏了。

procedure TAndroidModule1.AndroidModule1JNIPrompt(Sender: TObject);
begin
  Self.SetScreenOrientationStyle(ssPortrait);     //强制竖屏
end; 

 

procedure TAndroidModule1.AndroidModule1Rotate(Sender: TObject;
  rotate: TScreenStyle);
begin
  if rotate = ssLandscape then   // device is on horizontal...
         Self.SetScreenOrientationStyle(ssPortrait);     //强制竖屏
 end;

 

posted on 2022-02-04 18:55  秋·风  阅读(262)  评论(0编辑  收藏  举报