天天看点

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

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

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

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

application.formfactor.orientations := [tformorientation.solandscape, tformorientation.soinvertedlandscape];  

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

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

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

program project1;  

uses  

  system.startupcopy,  

  fmx.forms,  

  unit1 in 'unit1.pas' {form1};  

{$r *.res}  

begin  

  application.initialize;  

  //放在这里,禁止竖屏,只允许横屏  

  application.formfactor.orientations := [tformorientation.solandscape, tformorientation.soinvertedlandscape];  

  application.createform(tform1, form1);  

  application.run;  

end.  

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

在工程管理视图中鼠标右键,在弹出的菜单中选择options…,在左边的列表中选中application,在右边面板区域中的orientation页,勾选custom

orientation,你就可以勾选它下面的四个选项(portrait,upside down,landscape

home right,landscape home left),其中landscape home right,landscape

home left表示横屏,portrait,upside down表示竖屏。

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

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