Lazarus+LAMW强制APP屏幕方向

在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;