Delphi App横屏显示、禁止/显示竖屏

Delphi开发的应用程序禁止竖屏,如下:

Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];

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

工程代码查看方法:在工程管理视图,鼠标右键工程节点,在弹出的菜单中选择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.

当然,你也可以在工程选项中进行设置:

在工程管理视图中鼠标右键,在弹出的菜单中选择Options…,在左边的列表中选中Application,在右边面板区域中的Orientation页,勾选Custom orientation,你就可以勾选它下面的四个选项(Portrait,Upside down,Landscape home right,Landscape home left),其中Landscape home right,Landscape home left表示横屏,Portrait,Upside down表示竖屏。

类似文章

1 条评论

  1. //竖屏显示
    {$IF DEFINED(iOS) or DEFINED(ANDROID)}
    Application.FormFactor.Orientations := [TFormOrientation.Portrait];
    {$ENDIF}

发表回复

您的电子邮箱地址不会被公开。