开发者社区> 何剑> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

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

简介: <table cellspacing="0" cellpadding="0" id="blogContentTable" style="margin:0px; padding:0px; border-collapse:collapse; border-spacing:0px; color:rgb(68,68,68); font-family:punctuation,微软雅黑,Tohoma;
+关注继续查看
怎么样让Delphi For iOS开发的应用程序禁止竖屏,也就是想让它一直横屏显示,横屏是好,一行可以放好几个控件,表格的话也可以多显示几列,看起来方便。

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

[delphi] view plaincopy在CODE上查看代码片派生到我的代码片
  1. Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];  

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

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

[delphi] view plaincopy在CODE上查看代码片派生到我的代码片
  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表示竖屏。

 

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


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
【Debug】VS EXE运行“应用程序无法正常启动(0xc000007b)”
今天在VS2013发布应用程序后,本地电脑可以正常打开exe,但放到其他电脑无法正常启动,打印“应用无法正常启动(0xc000007b)。请单击“确定”关闭应用程序”。
204 0
Delphi XE 之路(6)手势操作
<div style="margin:0px; padding:0px; font-family:punctuation,微软雅黑,Tohoma; font-size:14px; line-height:22px">  <span style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun">1.在窗体上
3069 0
delphi XE2-新的里程碑
我从delphi1一直用到现在的delphi 7,中间几乎每个版本都用过来开发实际应用,每个版本都有新的功能和亮点出现, 但是delphi8( 其实只是for .NET),delphi 2005 几乎可以说是一场灾难,当然这其中borland 内部也发生着翻天覆地的变化。
887 0
Delphi数组
  静态数组的定义方法 //1. 标准方法: var MyArr: array[0..10] of Integer; //定义静态数组 //2.
892 0
118_《Delphi2010语法手册》
《Delphi2010语法手册》 Delphi 教程 系列书籍 (118) 《Delphi2010语法手册》 网友(邦)整理 EMail: shuaihj@163.com 下载地址: 下载
944 0
027_《Delphi Direct X 图形与游戏程序设计》
《Delphi Direct X 图形与游戏程序设计》 Delphi 教程 系列书籍 (027) 《Delphi Direct X 图形与游戏程序设计》 网友(邦)整理 EMail: shuaihj@163.
1291 0
012_《Delphi程序调试参考手册》
《Delphi程序调试参考手册》 Delphi 教程 系列书籍 (012) 《Delphi程序调试参考手册》 网友(邦)整理 EMail: shuaihj@163.
1038 0
+关注
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载