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

怎么样让Delphi For iOS开发的应用程序禁止竖屏,也就是想让它一直横屏显示,横屏是好,一行可以放好几个控件,表格的话也可以多显示几列,看起来方便。

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

[delphi] view plaincopyDelphi XE之路(5)让应用程序禁止竖屏(只显示横屏)Delphi XE之路(5)让应用程序禁止竖屏(只显示横屏)
  1. Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];  

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

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

[delphi] view plaincopyDelphi XE之路(5)让应用程序禁止竖屏(只显示横屏)Delphi XE之路(5)让应用程序禁止竖屏(只显示横屏)
  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,你就可以勾选它下面的四个选项(PortraitUpside downLandscape home rightLandscape home left),其中Landscape home rightLandscape home left表示横屏,PortraitUpside down表示竖屏。

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

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


上一篇:【Swift】 应用内显示 AppStore 某个应用的详情


下一篇:如何使用ABAP代码反序列化JSON字符串成ABAP结构