Delphi XE之路（5）让应用程序禁止竖屏(只显示横屏)

只要一句代码就可以让Delphi For iOS开发的应用程序禁止竖屏，如下：

[delphi]  view plain copy

1. Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];  

很多时候，需要在iOS应用程序刚打开的时候，也就是欢迎界面显示的时候就要横屏了，那就要放在工程的代码中才会起作用：

(工程代码查看方法：在工程管理视图，鼠标右键工程节点，在弹出的菜单中选择View Source)。

[delphi]  view plain copy

1. program Project1;  
2.   
3.    
4.   
5. uses  
6.   
7.   System.StartUpCopy,  
8.   
9.   FMX.Forms,  
10.   
11.   Unit1 in 'Unit1.pas' {Form1};  
12.   
13.    
14.   
15. {$R *.res}  
16.   
17.    
18.   
19. begin  
20.   
21.   Application.Initialize;  
22.   
23.   //放在这里，禁止竖屏，只允许横屏  
24.   
25.   Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];  
26.   
27.   Application.CreateForm(TForm1, Form1);  
28.   
29.   Application.Run;  
30.   
31. end.  

当然，你也可以在工程选项中进行设置:

在工程管理视图中鼠标右键，在弹出的菜单中选择Options…，在左边的列表中选中Application，在右边面板区域中的Orientation页，勾选Custom orientation，你就可以勾选它下面的四个选项(Portrait，Upside down，Landscape home right，Landscape home left)，其中Landscape home right，Landscape home left表示横屏，Portrait，Upside down表示竖屏。

当然，它其实也是在工程代码中加上前面我们讲的那句代码。