FMX App的Application的事件（各种手机的全局按键）

直接上代码，还有条经验就是SetApplicationEventHandler可注册多个事件方法。

unit Unit6;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.Platform;

type
  TForm6 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    function HandleAppEvent(AAppEvent: TApplicationEvent;
      AContext: TObject): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.fmx}


procedure TForm6.FormCreate(Sender: TObject);
var
  SvcEvents: IFMXApplicationEventService;
begin
  if TPlatformServices.Current.SupportsPlatformService
    (IFMXApplicationEventService, IInterface(SvcEvents))
  then
    SvcEvents.SetApplicationEventHandler(HandleAppEvent);

end;

function TForm6.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
var
  astate: string;
begin
  case AAppEvent of
    TApplicationEvent.FinishedLaunching:
      astate := 'FinishedLaunching';
    TApplicationEvent.BecameActive:
      astate := 'BecameActive';
    TApplicationEvent.WillBecomeInactive:
      astate := 'WillBecomeInactive';
    TApplicationEvent.EnteredBackground:
      astate := 'EnteredBackground';
    TApplicationEvent.WillBecomeForeground:
      astate := 'WillBecomeForeground';
    TApplicationEvent.WillTerminate:
      astate := 'WillTerminate';
    TApplicationEvent.LowMemory:
      astate := 'LowMemory';
    TApplicationEvent.TimeChange:
      astate := 'TimeChange';
    TApplicationEvent.OpenURL:
      astate := 'OpenURL';
  end;
  Self.Memo1.Lines.Add(astate);
  Result := true;
end;

end.

 

http://blog.sina.com.cn/s/blog_44fa172f0102vwr2.html