Delphi FMX检测屏幕旋转-木庄网络博客

本文整理自网络，侵删。
 关于如何使用Delphi开发的智能手机应用程序检测屏幕旋转的备忘录。

环境：Delphi 10.3 Rio

方法
当设备的屏幕方向更改时，将发送FMX.Forms.TOrientationChangedMessage。
如果您能收到此消息，则可以进行判断。

System.Messaging.TMessageManager负责应用程序的消息处理。
您可以在其中注册TOrientationChangedMessage的处理方法。
作为程序

获取TMessageManager的实例
调用TMessageManager.SubscribeToMessage来注册消息的方法
用一种处理方法执行屏幕旋转检测处理
若要取消消息的方法，请将调用TMessageManager.SubscribeToMessage时获得的消息ID传递给TMessageManager.Unsubscribe。
实施实例
unit MainU;

interface

uses
  ...（省略）, System.Messaging;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private }
    /// <summary>
    ///  TOrientationChangedMessageのID
    /// </summary>
    FOrientationChangedId: Integer;

    /// <summary>

    /// </summary>
    procedure OrientationChangedHandler(const Sender: TObject; const Msg: TMessage);
  public
    { public }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  // TMessageManager
  // TMessageManager.DefaultManager
  // TOrientationChangedMessage
  FOrientationChangedId :=
    TMessageManager.DefaultManager.SubscribeToMessage(
      TOrientationChangedMessage, OrientationChangedHandler);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  // OrientationChangedHandler
  TMessageManager.DefaultManager.Unsubscribe(
    TOrientationChangedMessage, FOrientationChangedId);
end;

procedure TForm1.OrientationChangedHandler(const Sender: TObject; const Msg: TMessage);
begin
  ShowMessage('方向发生改变!');
end;

end.
Delphi FMX检测屏幕旋转

相关推荐

评论
