Delphi FMX获取屏幕方向

本文整理自网络，侵删。

 
关于如何使用由Delphi开发的智能手机应用程序检查屏幕方向的备忘录。

环境：Delphi 10.3 Rio

方法
可以通过查询FMX.Platform.TPlatformServices上的IFMXScreenService获得。

uses
  FMX.Platform;

{$R *.fmx}

procedure TForm1.btnGetScreenOrientationClick(Sender: TObject);
var
  screenService: IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, screenService) then
  begin
    case screenService.GetScreenOrientation of
      TScreenOrientation.Portrait: ShowMessage('纵向');
      TScreenOrientation.Landscape: ShowMessage('横向');
      TScreenOrientation.InvertedPortrait: ShowMessage('上下');
      TScreenOrientation.InvertedLandscape: ShowMessage('横向');
    end;
  end;
end;

IFMXScreenService还提供了一个允许您获取屏幕尺寸和屏幕比例的功能。

GetScreenSize
获取屏幕比例
在实际机器上检查时
需要设置项目选项->应用程序->方向。

由于未检查初始值，因此即使将设备垂直上下颠倒，屏幕也不会旋转。
如果要启用垂直倒置，则需要检查方向。

 

相关阅读 >>

Delphi 让程序支持外来文件拖放的单元文件

Delphi app检测智能手机震动

Delphi 变量和常量

Delphi 老外分享的textfile高速遍历大数据文本

Delphi获取系统特殊文件夹路径

Delphi安卓创建pdf文件并打开

Delphi 根据分割符只取最后的值

Delphi webbroker isapi 示例说明

Delphi版inf方式加载驱动

Delphi 获取ie7 ie8 ie9 地址栏网址

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

转载请注明出处：木庄网络博客 » Delphi FMX获取屏幕方向