Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横
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,你就可以勾选它下面的四个选项(Portrait,Upside down,Landscape home right,Landscape home left),其中Landscape home right,Landscape home left表示横屏,Portrait,Upside down表示竖屏。 ? 当然,它其实也是在工程代码中加上前面我们讲的那句代码。 ? ? ? ? ? ?欢迎加入OrangeUI For FMX 技术支持QQ群10900297 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
- Asia Yokohama Regional Contest 2018 G题 What Goes Up Mu
- golang(10):web开发 & 连接数据库
- HNOI2016 大数(number)<莫队>
- delphi – 如何在启用vcl样式时使用本机进度条?
- php – 在Laravel 5中创建管理员区域界面的最佳实践
- 《深度挖掘:Oracle RAC数据…
- ListView 使用 LiveBindings 显示超过 200 条记录
- UVA 10494 If We Were a Child Again(大数)
- 大数据分析与机器学习领域Python兵器谱
- delphi – 为什么通过MSBuild进行编译比通过IDE进行更长时间