How to handle the application events of the app

Source: Internet
Author: User

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

With the code directly, there is also the experience that Setapplicationeventhandler can register multiple event methods.

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.

You can also refer to the following example, which is the type of message

FMX. Platform.tapplicationeventFMX. Platform.tapplicationevent

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

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

(finishedlaunching, becameactive, willbecomeinactive, Enteredbackground, Willbecomeforeground, Willterminate,lowmemory, Timechange, OpenURL);

An instance of Tapplicationevent is 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 and your application is still running in the background.

Supported

Supported

FinishedLaunching

Your application has been launched.

Supported

Supported

lowmemory

This warns your application so the device is running O UT of memory.

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

Supported

Supported

OpenURL

You application have received a request to open an URL.

Application Events of this type is usually associated with a context. This context was an instance of the ios-only  tiosopenapplicationcontext  class, which provides the F Ollowing read-only Properties:

  • tiosopenapplicationcontext.sourceapp  is a string that C Ontains 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 APIs reference documentation for more information.

 

Supported

TimeChange

There has been a significant.

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

Supported

WillBecomeForeground

The user is now using your application, which were 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.dpufprocedure 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 (ifmxap    Plicationeventservice, 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:;//First run app Trigger, switch from background to also trigger tapplicationevent.willbecomeinactive:;      Tapplicationevent.enteredbackground:;//Switch to Background tapplicationevent.willbecomeforeground:;//switch from background to foreground      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 

vs. iOS




Two consecutive Hits home button
Click on the springboard in the taskbar or press the Home button, click the Home button one time

-(void) Applicationwillresignactive: (uiapplication *) application


Program back
The program gets the focus and returns to app-(void) applicationdidbecomeactive in the taskbar: (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

The tracked time triggers the log.

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 Delegatesfunction 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 Source  Appstring: = "; 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 ;

How to handle the application events of the app

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.