Firemonkey扩展增强：iOS 实现程序运行时更改锁定显示方向（LockOrientations）

本文背景Delphi XE10 Seattle。

iOS默认支持的设备方向(Device Orientation)为Portrait、LandscapeLeft、LandscapeRight，还有一个默认不支持的PortraitUpsideDown。这四种分别是竖屏Home键在下、横屏Home键在右、横屏Home键在左、竖屏Home键在上，分别对应Firemonkey中的TScreenOrientation.Portrait、TScreenOrientation.Landscape、TScreenOrientation.InvertedLandscape、TScreenOrientation.InvertedPortrait。

默认Firemonkey开发的app跟XCode默认的一样，只支持前三种。如果要设置app只支持其中的一种或其他几种，只需在工程选项设置中设置Application>Orientation为要支持的方向，IDE将自动增加一行代码设置Application.FormFactor.Orientations的值。

Application.FormFactor.Orientations := [TFormOrientation.Portrait, TFormOrientation.Landscape];