Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)
来源:互联网 发布:sql语句格式化工具 编辑:程序博客网 时间:2024/05/22 07:47
最近好多人问,怎么样让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.
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 For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)
- Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)
- Delphi XE之路(5)让应用程序禁止竖屏(只显示横屏)
- Delphi For iOS开发指南(18):让Delphi XE4开发的iOS应用显示为中文名称
- Delphi For iOS开发指南(18):让Delphi XE4开发的iOS应用显示为中文名称
- Delphi for iOS开发指南(序):Delphi iOS应用程序开发
- Delphi for iOS开发指南(序):Delphi iOS应用程序开发
- Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页
- Delphi for iOS开发指南(9):在iOS应用程序中使用ListBox组件来显示TableView
- Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页
- Delphi for iOS开发指南(9):在iOS应用程序中使用ListBox组件来显示TableView
- Delphi for iOS开发指南(3):创建一个FireMonkey iOS应用程序
- Delphi for iOS开发指南(4):在iOS应用程序中使用不同风格的Button组件
- Delphi for iOS开发指南(5):在iOS应用程序中使用Calendar组件来选择日期
- Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件
- Delphi for iOS开发指南(11):在iOS应用程序中拍照并共享照片
- Delphi for iOS开发指南(14):在iOS应用程序中使用InterBase ToGo
- Delphi for iOS开发指南(15):在iOS应用程序中使用SQLite
- SQL日期函数
- Delphi for iOS开发指南(16):在iOS客户端应用程序中连接企业级数据库
- C#中winform中区分Close()和点击窗体右上角关闭按钮来关闭窗体
- Hashed password with salted value——利用salt对密码进行散列
- 使用JDK自带jvisualvm监控tomcat
- Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)
- Dirichlet distribution的另一种理解,对应的如何解释dirichlet process
- CRM上线之路 走上了CRM实施顾问-第29天上班 -第七周
- commandline music player
- LeetCode —— Valid Number
- socket编程学习第一天
- 提高Office2010等高版的启动速度文章链接收集-Office2010打开慢速度怎么办?
- sql server 重复记录相关 SQL
- 切分 Tomcat 的 catalina.out 文件,解决日志文件过大的问题