zoukankan      html  css  js  c++  java
  • Delphi XE5 android 捕获几个事件


    以下代码能监控到以下几个事件:

        FinishedLaunching 
        BecameActive 
        WillBecomeInactive
        EnteredBackground
        WillBecomeForeground
        WillTerminate
        LowMemory
        TimeChange
        OpenURL

    unit Unit11;
    
    interface
    
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
      FMX.Memo, FMX.Platform, FMX.StdCtrls;
    
    type
      TForm11 = class(TForm)
        Memo1: TMemo;
        ToolBar1: TToolBar;
        Label1: TLabel;
        procedure FormCreate(Sender: TObject);
      private
        procedure Log(s: string);
      public
        function HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
      end;
    
    var
      Form11: TForm11;
    
    implementation
    
    {$R *.fmx}
    
    { TForm11 }
    
    procedure TForm11.FormCreate(Sender: TObject);
    var aFMXApplicationEventService: IFMXApplicationEventService;
    begin
      if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(aFMXApplicationEventService)) then
        aFMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent)
      else
        Log('Application Event Service is not supported.');
    end;
    
    function TForm11.HandleAppEvent(AAppEvent: TApplicationEvent;
      AContext: TObject): Boolean;
    begin
      case AAppEvent of
        aeFinishedLaunching: Log('Finished Launching');
        aeBecameActive: Log('Became Active');
        aeWillBecomeInactive: Log('Will Become Inactive');
        aeEnteredBackground: Log('Entered Background');
        aeWillBecomeForeground: Log('Will Become Foreground');
        aeWillTerminate: Log('Will Terminate');
        aeLowMemory: Log('Low Memory');
        aeTimeChange: Log('Time Change');
        aeOpenURL: Log('Open URL');
      end;
      Result := True;
    end;
    
    procedure TForm11.Log(s: string);
    begin
      Memo1.Lines.Add(TimeToStr(Now) + ': ' + s);
    end;
    
    end.
    View Code
  • 相关阅读:
    robotframework +selenium 自动化测试之浏览器与驱动的兼容问题。
    robotframework+selenium自动化robotramework版本问题
    一个业务逻辑引发的对多表连接的思考
    第一次接触WebSocket遇到的坑以及感受
    关于读写APP.config文件能读却写不了的问题
    poj2392 space elevator
    洛谷P1197 星球大战
    poj3421&poj3292&poj2689 基础数论
    洛谷P1006 传纸条
    挑战程序设计竞赛2.3节习题选解
  • 原文地址:https://www.cnblogs.com/nywh2008/p/3393269.html
Copyright © 2011-2022 走看看