[原]Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)

  • 主题发起人 主题发起人 DelphiTeacher的专栏
  • 开始时间 开始时间
D

DelphiTeacher的专栏

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)





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

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


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


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

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


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,你就可以勾选它下面的四个选项(PortraitUpside downLandscape home rightLandscape home left),其中Landscape home rightLandscape home left表示横屏,PortraitUpside down表示竖屏。


rq5LappwR0zbkI6amENsE6MSCV1TL1co.png

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











欢迎加入OrangeUI For FMX 技术支持QQ群10900297

作者:DelphiTeacher 发表于2013/8/2 18:47:53 原文链接
阅读:1626 评论:1 查看评论

查看更多...
 
最后编辑:
后退
顶部