FMX.Platform.TApplicationEvent

http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Platform.TApplicationEvent

http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Platform.TApplicationEvent

TApplicationEvent = (FinishedLaunching, BecameActive, WillBecomeInactive, EnteredBackground, WillBecomeForeground, WillTerminate, LowMemory, TimeChange, OpenURL);

An instance of TApplicationEvent may have any of the following values:

Item Description Platform
Android iOS

BecameActive

Your application has gained the focus.//applicationDidBecomeActive

Supported

Supported

EnteredBackground

The user is no longer using your application, but your application is still running in the background.

Supported

Supported

FinishedLaunching

Your application has been launched.

Supported

Supported

LowMemory

This warns your application that the device is running out of memory.

Your application should reduce memory usage, freeing structures and data that can be loaded again at a later point.

Supported

Supported

OpenURL

You application has received a request to open an URL.

Application events of this type are usually associated with a context. This context is an instance of the iOS-only TiOSOpenApplicationContext class, which provides the following read-only properties:

  • TiOSOpenApplicationContext.SourceApp is a string that contains the bundle ID of the application that requested your application to open the URL.
  • TiOSOpenApplicationContext.URL is the URL to open, either a network resource or a file.
  • TiOSOpenApplicationContext.Context is a pointer to a property-list object that might provide additional information.

See the iOS API reference documentation for more information.

  

Supported

TimeChange

There has been a significant change in time.

This event might happen for example when the day changes or when the device changes to or from daylight savings time.

  

Supported

WillBecomeForeground

The user is now using your application, which was previously in the background.

Supported

Supported

WillBecomeInactive

Your application is going to loose the focus. / applicationWillResignActive

Supported

Supported

WillTerminate

The user is quitting your application.

Supported

Supported

 
http://codeverge.com/embarcadero.delphi.ios/ifmxapplicationeventservice-not-firing/2028062

http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583
procedure TMainForm.FormCreate(Sender: TObject); var SvcEvents: IFMXApplicationEventService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(SvcEvents)) then SvcEvents.SetApplicationEventHandler(HandleAppEvent); Application.OnException := ExceptionHandler; end; function TMainForm.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin case AAppEvent of TApplicationEvent.FinishedLaunching: ; TApplicationEvent.BecameActive: ; TApplicationEvent.WillBecomeInactive: ; TApplicationEvent.EnteredBackground: ; TApplicationEvent.WillBecomeForeground: ; TApplicationEvent.WillTerminate: ; TApplicationEvent.LowMemory: ; TApplicationEvent.TimeChange: ; TApplicationEvent.OpenURL: ; end; Result := True; end; - See more at: http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583#sthash.6XM5jEUI.dpuf
procedure TMainForm.FormCreate(Sender: TObject); var SvcEvents: IFMXApplicationEventService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(SvcEvents)) then SvcEvents.SetApplicationEventHandler(HandleAppEvent); Application.OnException := ExceptionHandler; end; function TMainForm.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin case AAppEvent of TApplicationEvent.FinishedLaunching: ; TApplicationEvent.BecameActive: ; TApplicationEvent.WillBecomeInactive: ; TApplicationEvent.EnteredBackground: ; TApplicationEvent.WillBecomeForeground: ; TApplicationEvent.WillTerminate: ; TApplicationEvent.LowMemory: ; TApplicationEvent.TimeChange: ; TApplicationEvent.OpenURL: ; end; Result := True; end; - See more at: http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583#sthash.6XM5jEUI.dpuf


procedure TMainForm.FormCreate(Sender: TObject); var SvcEvents: IFMXApplicationEventService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(SvcEvents)) then SvcEvents.SetApplicationEventHandler(HandleAppEvent); Application.OnException := ExceptionHandler; end; function TMainForm.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin case AAppEvent of TApplicationEvent.FinishedLaunching: ; TApplicationEvent.BecameActive: ; TApplicationEvent.WillBecomeInactive: ; TApplicationEvent.EnteredBackground: ; TApplicationEvent.WillBecomeForeground: ; TApplicationEvent.WillTerminate: ; TApplicationEvent.LowMemory: ; TApplicationEvent.TimeChange: ; TApplicationEvent.OpenURL: ; end; Result := True; end; - See more at: http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583#sthash.6XM5jEUI.dpuf






http://community.embarcadero.com/index.php/blogs/entry/mobile-app-lifecycle-events-handling-in-delphi-xe5-40067


http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583


FMX.Platform.pas




procedure TMainForm.FormCreate( Sender : TObject );

  var

    SvcEvents : IFMXApplicationEventService;

begin

    if TPlatformServices.Current.SupportsPlatformService

      ( IFMXApplicationEventService, IInterface( SvcEvents ) )

    then

      SvcEvents.SetApplicationEventHandler( HandleAppEvent );

    Application.OnException := ExceptionHandler;

end;

function TMainForm.HandleAppEvent(   AAppEvent : TApplicationEvent;   AContext  : TObject ) : Boolean;

begin

    case AAppEvent of

      TApplicationEvent.FinishedLaunching :

        ;

      TApplicationEvent.BecameActive :

        ;//第一次运行app触发,从后台切换过来也触发

      TApplicationEvent.WillBecomeInactive :

        ;

      TApplicationEvent.EnteredBackground :

        ;//切换到后台

      TApplicationEvent.WillBecomeForeground :

        ;//从后台切换到前台

      TApplicationEvent.WillTerminate :

        ;

      TApplicationEvent.LowMemory :

        ;

      TApplicationEvent.TimeChange :

        ;

      TApplicationEvent.OpenURL :

        ;

    end;

    Result := True;

end;

//See more at : http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583




和IOS的对比


 


/app启动完毕调用，应用初次启动

- (BOOL)application:(UIApplication *)application didFinishLaunchingWithOptions:(NSDictionary *)launchOptions 

//进入后台时调用：一般在这里保存应用数据（游戏数据，比如暂停游戏）

- (void)applicationDidEnterBackground:(UIApplication *)application 

连续点击两次Home按钮
在任务栏点击SpringBoard或者按下Home按钮，单次点击Home按钮


- (void)applicationWillResignActive:(UIApplication *)application


//程序回到前台时调用，恢复数据

- (void)applicationWillEnterForeground:(UIApplication *)application

//接收内存警告时候调用

- (void)applicationDidReceiveMemoryWarning:(UIApplication *)application

//程序即将退出

- (void)applicationWillTerminate:(UIApplication *)application 

//程序获取焦点，在任务栏中回到app

- (void)applicationDidBecomeActive:(UIApplication *)application






procedure TMainForm.FormCreate(Sender: TObject); var SvcEvents: IFMXApplicationEventService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(SvcEvents)) then SvcEvents.SetApplicationEventHandler(HandleAppEvent); Application.OnException := ExceptionHandler; end; function TMainForm.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin case AAppEvent of TApplicationEvent.FinishedLaunching: ; TApplicationEvent.BecameActive: ; TApplicationEvent.WillBecomeInactive: ; TApplicationEvent.EnteredBackground: ; TApplicationEvent.WillBecomeForeground: ; TApplicationEvent.WillTerminate: ; TApplicationEvent.LowMemory: ; TApplicationEvent.TimeChange: ; TApplicationEvent.OpenURL: ; end; Result := True; end; - See more at: http://codeverge.com/embarcadero.delphi.firemonkey/keep-application-on-top/2009583#sthash.6XM5jEUI.dpuf




跟踪的时间触发日志。


FormCreate
FormShow
BecameActive


FormSaveState
EnteredBackgrounbd
WillBecomeForeground


BecameActive


FormSaveState
EnteredBackgrounbd


WillBecomeForeground
BecameActive


FormSaveState
EnteredBackgrounbd


WillBecomeForeground
BecameActive




function TFMXMusicPlayerFrm.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;

  Result := true;

end;




FMX.Platform.iOS.pas


Application delegates




  TApplicationDelegate = class{(TOCLocal, UIApplicationDelegate)}

  private

    FMainWindow: TFMXWindow;

  public

    function application(Sender: UIApplication; didFinishLaunchingWithOptions: NSDictionary): Boolean; overload; cdecl;

    procedure application(Sender: UIApplication; didReceiveLocalNotification: UILocalNotification); overload; cdecl;

    procedure application(Sender: UIApplication; didRegisterForRemoteNotificationsWithDeviceToken: NSData); overload; cdecl;

    function application(const openURL, sourceApplication: string; annotation: Pointer): Boolean; overload; cdecl;

    procedure applicationDidBecomeActive(const Sender: UIApplication); cdecl;

    procedure applicationDidEnterBackground(const Sender: UIApplication); cdecl;

    procedure applicationDidRegisterForRemoteNotificationsWithDeviceToken(Sender: UIApplication; AToken: NSData); cdecl;

    procedure applicationDidReceiveRemoteNotification(Sender: UIApplication; ANotification: NSDictionary); cdecl;

    procedure didFailToRegisterForRemoteNotificationsWithError(Sender: UIApplication; AError: NSError); cdecl;

    procedure applicationDidReceiveMemoryWarning(Sender: UIApplication); cdecl;

    procedure applicationSignificantTimeChange(Sender: UIApplication); cdecl;

    procedure applicationWillEnterForeground(Sender: UIApplication); cdecl;

    procedure applicationWillResignActive(Sender: UIApplication); cdecl;

    procedure applicationWillTerminate(Sender: UIApplication); cdecl;

    procedure setWindow(window: UIWindow); cdecl;

    function window: UIWindow; cdecl;

    property MainWindow: TFMXWindow read FMainWindow;

  end;






// Application delegates

function applicationDidFinishLaunchingWithOptions(self: id; _cmd: SEL;

  application: PUIApplication; options: PNSDictionary): Boolean; cdecl;

begin

  Result := PlatformCocoa.FAppDelegate.application(TUIApplication.Wrap(application), TNSDictionary.Wrap(options));

end;

procedure applicationDidReceiveLocalNotification(self: id; _cmd: SEL; application: PUIApplication;

  notification: Pointer); cdecl;

begin

  PlatformCocoa.FAppDelegate.application(TUIApplication.Wrap(application), TUILocalNotification.Wrap(notification));

end;

procedure didReceiveRemoteNotification(self: id; _cmd: SEL; app: PUIApplication; ANotification: PNSDictionary); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationDidReceiveRemoteNotification(TUIApplication.Wrap(app), TNSDictionary.Wrap(ANotification));

end;

procedure didFailToRegisterForRemoteNotificationsWithError(self: id; _cmd: SEL; app: PUIApplication; error: PNSError); cdecl;

begin

  PlatformCocoa.FAppDelegate.didFailToRegisterForRemoteNotificationsWithError(TUIApplication.Wrap(application), TNSError.Wrap(error));

end;

procedure didRegisterForRemoteNotificationsWithDeviceToken(self: id; _cmd: SEL; application: PUIApplication; deviceToken: PNSData); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationDidRegisterForRemoteNotificationsWithDeviceToken(TUIApplication.Wrap(application), TNSData.Wrap(deviceToken));

end;

procedure applicationOpenURLWithSourceAnnotation(self: id; _cmd: SEL; application: PUIApplication; url: Pointer; sourceApplication: PNSString; annotation: id);

var

  URLString: string;

  SourceAppString: string;

begin

  if url <> nil then

    URLString := NSStrToStr(TNSURL.Wrap(url).absoluteString)

  else

    URLString := '';

  if sourceApplication <> nil then

    SourceAppString := NSStrToStr(TNSString.Wrap(sourceApplication))

  else

    SourceAppString := '';

  PlatformCocoa.FAppDelegate.application(URLString, SourceAppString, annotation);

end;

procedure applicationDidBecomeActive(self: id; _cmd: SEL; application: PUIApplication); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationDidBecomeActive(TUIApplication.Wrap(application));

end;

procedure applicationDidEnterBackground(self: id; _cmd: SEL; application: PUIApplication); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationDidEnterBackground(TUIApplication.Wrap(application));

end;

procedure applicationWillEnterForeground(self: id; _cmd: SEL; application: PUIApplication); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationWillEnterForeground(TUIApplication.Wrap(application));

end;

procedure applicationWillTerminate(self: id; _cmd: SEL; application: PUIApplication); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationWillTerminate(TUIApplication.Wrap(application));

end;

procedure applicationDidReceiveMemoryWarning(self: id; _cmd: SEL; application: PUIApplication); cdecl;

begin

  PlatformCocoa.FAppDelegate.applicationDidReceiveMemoryWarning(TUIApplication.Wrap(application));

end;


												


											
FMX.Platform.TApplicationEvent的更多相关文章
	

    
								
  1. 如何处理App的Application的事件
		
    http://blog.sina.com.cn/s/blog_44fa172f0102vwr2.html 直接上代码,还有条经验就是SetApplicationEventHandler可注册多个事件方 ...
    
		
    2. 
						
  2. FMX App的Application的事件（各种手机的全局按键）
		
    直接上代码,还有条经验就是SetApplicationEventHandler可注册多个事件方法. unit Unit6; interface uses  System.SysUtils, Syste ...
    
		
    3. 
						
  3. 一个支持FMX.Win框架的托盘控件
		
    不多说了 直接上代码........有任何问题请给我邮件.... // **************************************************************** ...
    
		
    4. 
						
  4. XE6 FMX之控件绘制与显示
		
    中午,有个货随手买的2块钱的彩票,尼玛中了540块,这是啥子狗屎气运.稍微吐槽一下,现在开始正规的笔记录入.经常有朋友说为毛我的博客不更新了或者说更新的少了,为啥呢!一来自己懒了,没学习什么新的东西, ...
    
		
    5. 
						
  5. 应用程序的关闭退出（在FMX中，Activity替代了Form的概念）
		
    在VCL中,关闭程序的主窗体也就意味着程序的主循环结束,主程序自然而然结束.所以在主窗体中使用窗体的关闭函数(Close)即可,如下: procedure TfrmMain.btncloseClick ...
    
		
    6. 
						
  6. 关于Delphi XE2的FMX的一点点研究之消息篇
		
    Delphi XE2出来了一阵子了,里面比较抢眼的东西,除了VCLStyle这个换肤的东西之外,另外最让人眼亮的应该是FMX这个东西了.万一的博客上都连载了一票的关于FMX的使用心得了.我还是没咋去关 ...
    
		
    7. 
						
  7. [FMX]在你的跨平台应用中使用剪贴板进行复制粘贴
		
    [FMX]在你的跨平台应用中使用剪贴板进行复制粘贴 2017-08-10 • Android.C++ Builder.Delphi.iOS.教程 • 暂无评论 • swish •浏览 516 次 VC ...
    
		
    8. 
						
  8. FMX+Win32，窗口无法保持原样，应该是个bug
		
    从FMX发布开始,一直有这问题,大家看看是不是一个bug,应该如何修复? 新建一个FMX Application,运行后,点击窗口标题栏右上角的“最大化”按钮,此时窗口是最大化的.在windows最底 ...
    
		
    9. 
						
  9. Delphi XE5  android  捕获几个事件
		
    以下代码能监控到以下几个事件: FinishedLaunching     BecameActive     WillBecomeInactive    EnteredBackground    Wi ...
    
		
    10. 
		

	


随机推荐
	

    
									
  1. Unable to locate \.nuget\NuGet.exe 问题解决办法之一
			
    问题出现的原因是项目下.nuget文件夹下NuGet.exe文件夹不存在导致的 解决办法: 1.右键编辑NuGet.targets文件 将下载NuGet.exe的配置节点DownloadNuGetEx ...
    
			
    2. 
						
  2. 蓝桥杯 生命之树【树状dp】
			
    生命之树 在X森林里,上帝创建了生命之树. 他给每棵树的每个节点(叶子也称为一个节点)上, 都标了一个整数,代表这个点的和谐值. 上帝要在这棵树内选出一个非空节点集S, 使得对于S中的任意两个点a,b ...
    
			
    3. 
						
  3. Django 组件content_type
			
    content type: django内置组件,这个组件帮忙做连表操作(混搭连表) 适用场景:适用于一张表与多张表同时做关联的时候.直接导入就可以使用了. 关联数据库所有的表:可以快速插入数据,并且 ...
    
			
    4. 
						
  4. TCL数组
			
    数组是一组使用索引对应元素的排列方式.常规数组的语法如下所示. set ArrayName(Index) value 用于创建简单数组的例子,如下所示. #!/usr/bin/tclsh set la ...
    
			
    5. 
						
  5. Android图片高斯模糊的一些方法
			
    高斯模糊 高斯模糊就是将指定像素变换为其与周边像素加权平均后的值,权重就是高斯分布函数计算出来的值. 一种实现 点击打开链接<-这里是一片关于高斯模糊算法的介绍,我们需要首先根据高斯分布函数计算 ...
    
			
    6. 
						
  6. [Python] numpy.Matrix
			
    import numpy as np np.matrix('1, 2; 3, 4') #1, 2 #3, 4 np.matrix([[1,2],[3,4]]) #1, 2 #3, 4
    
			
    7. 
						
  7. SpringBoot2.0实现静态资源版本控制
			
    写在最前面 犹记毕业第一年时,公司每次发布完成后,都会在一个群里通知[版本更新,各部门清理缓存,有问题及时反馈]之类的话.归根结底就是资源缓存的问题,浏览器会将请求到的静态资源,如JS.CSS等文件缓 ...
    
			
    8. 
						
  8. django2.0数据展示流程
			
    之前刚刚实现了数据添加的流程,那么数据展示是怎么回事 1 先在 views.py 中定义函数 增加获取数据的方式 from django.shortcuts import render from bl ...
    
			
    9. 
						
  9. 关于memcache分布式一致性hash
			
    consistent hashing 算法早在 1997 年就在论文 Consistent hashing and random trees 中被提出,目前在 cache 系统中应用越来越广泛: 1  ...
    
			
    10. 
						
  10. layui 弹框
			
      <!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8&q ...
    
			
    11.