delphi xe 应用程序横竖屏设置

本文整理自网络，侵删。

 
应用程序禁止竖屏代码
 Application.Initialize;  
  
  //禁止竖屏，只允许横屏 
  Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];  
  //禁止横屏，只允许竖屏
  //Application.FormFactor.Orientations := [TFormOrientation.soPortrait, TFormOrientation.soInvertedPortrait];
  
  Application.CreateForm(TForm1, Form1);  
  Application.Run; 

2、工程中设置
在工程管理视图中鼠标右键，在弹出的菜单中选择Options…，在左边的列表中选中Application，在右边面板区域中的Orientation页，勾选Custom orientation，你就可以勾选它下面的四个选项(Portrait，Upside down，Landscape home right，Landscape home left)，其中Landscape home right，Landscape home left表示横屏，Portrait，Upside down表示竖屏。
 
当然，它其实也是在工程代码中加上前面我们讲的那句代码。
 

相关阅读 >>

Delphi下遍历文件夹下所有文件的递归算法

Delphi使用edge browser浏览器组件

Delphi 统计中英文字个数的例子

Delphi idtcpclient和idtcpserver主要属性

Delphi 实现程序开机自动启动

Delphi 判断iso文件，iso文件头， iso filehead

Delphi 用空格把 s 凑够 n 的长度

Delphi 让子窗体显示在任务栏上

Delphi 判断某个系统服务是否存在及相关状态

Delphi 判断正在运行的设备是iphone还是ipad

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi xe 应用程序横竖屏设置