RSS订阅 | 匿名投稿
您的位置:网站首页 > FMX > 正文

delphi xe 应用程序横竖屏设置

作者:admin 来源: 日期:2018/1/18 13:27:20 人气: 标签:

应用程序禁止竖屏代码
 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,你就可以勾选它下面的四个选项(PortraitUpside downLandscape home rightLandscape home left),其中Landscape home rightLandscape home left表示横屏,PortraitUpside down表示竖屏。

 

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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料