Delphi XE之路(5)让应用程序禁止竖屏(只显示横屏)
来源:互联网 发布:少儿编程用什么软件 编辑:程序博客网 时间:2024/05/17 01:38
怎么样让Delphi For iOS开发的应用程序禁止竖屏,也就是想让它一直横屏显示,横屏是好,一行可以放好几个控件,表格的话也可以多显示几列,看起来方便。
只要一句代码就可以让Delphi For iOS开发的应用程序禁止竖屏,如下:
[delphi] view plaincopy
- Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];
很多时候,需要在iOS应用程序刚打开的时候,也就是欢迎界面显示的时候就要横屏了,那就要放在工程的代码中才会起作用:
(工程代码查看方法:在工程管理视图,鼠标右键工程节点,在弹出的菜单中选择View Source)。
[delphi] view plaincopy
- 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表示竖屏。
当然,它其实也是在工程代码中加上前面我们讲的那句代码。
0 0
- Delphi XE之路(5)让应用程序禁止竖屏(只显示横屏)
- Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)
- Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)
- Delphi XE之路(4)横屏问题
- delphi xe 应用程序横竖屏设置
- Delphi XE之路(9)Delphi XE android mutilistview
- Delphi XE 之路(1)第一个APP
- Delphi XE 之路(2)Platform Android Target
- Delphi XE 之路(6)手势操作
- Delphi XE之路(7)Mobile MessageDlg函数
- Delphi XE之路(12) 手机屏幕自适应程序问题
- delphi xe 之路(14)使用FireMonkeyStyle
- delphi xe之路(15)ListView MultiDetail
- delphi xe之路(16)ini文件的操作
- delphi xe 之路(18)在图片上写字
- delphi xe 之路(21)通知推送
- delphi xe 之路(23)clientdataset的locate函数
- delphi xe 之路(25)安卓夜间效果
- Django静态文件
- CUDA内存简介
- CSS深入研究:display的恐怖故事解密(2) - table-cell
- hdu4508湫湫系列故事——减肥记I
- 大话设计模式C++实现-第19章-组合模式
- Delphi XE之路(5)让应用程序禁止竖屏(只显示横屏)
- 第17周 项目5-玩日期时间
- linux驱动程序之增加按键异步通知机制
- Eclipse安装颜色主题,个性化你的IDE
- 【C语言】[库函数]:printf 函数 和 scanf 函数 对float 和double 类型打印和读取
- leetcode 152: Compare Version Numbers
- 第十七周项目6-学生成绩统计(4 已初始化)
- 数字证书、公钥和私钥这三者之间的关系是什么
- 控件开发中的设计期包和运行期包