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 firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi 获取单汉字拼音首字母

Delphi 设置系统静音取消系统静音

Delphi下的纯pascal的十六进制转十进制

Delphi 实现对xml文件的读写操作

Delphi安全结束线程

推荐一套免费跨平台的Delphi 哈希及加密算法库

Delphi打开关闭光驱

Delphi xe实现android 添加图片资源到应用并使用它

Delphi 限制tedit控件只能输入数字,小数点和负号

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...