Android Instance-set message alert (xe8+ Xiaomi 2)

Results:

1. Two buttons to create a new message reminder, minimized is also a new message reminder.

2. The program must be minimized before clicking on the message to remind Label2 will be reflected.

Instance code:

1 UnitUnit1;2 3 Interface4 5 uses6 system.sysutils, System.types, System.uitypes, system.classes, System.variants,7 FMX. Types, FMX. Controls, FMX. Forms, FMX. Graphics, FMX. Dialogs,8 FMX. Notification, FMX. Controls.presentation, Fmx.stdctrls,9FMX. Platform;//need to introduceTen  One type ATForm1 =class(Tform) - Notificationcenter1:tnotificationcenter; - Button1:tbutton; the Button2:tbutton; - Label1:tlabel; - Label2:tlabel; - Button3:tbutton; +     procedureButton1Click (sender:tobject); -     procedureButton2click (sender:tobject); +     procedureButton3click (sender:tobject); A     procedureformcreate (sender:tobject); at     procedurenotificationcenter1receivelocalnotification (sender:tobject; - anotification:tnotification); -   Private - Flag:boolean; -     functionhandleappevent (aappevent:tapplicationevent; Acontext:tobject): Boolean; -     {Private Declarations} in    Public -     {Public Declarations} to   End; +  - var the Form1:tform1; *  $ ImplementationPanax Notoginseng {$R *.FMX} - {$R *. NMXHDPIPH.FMX ANDROID} the  + //delay Create a new message alert A procedureTform1.button1click (sender:tobject); the var + mynotification:tnotification; - begin $   //creating messages from the message center $Mynotification: =notificationcenter1.createnotification; -   Try -Mynotification.name: ='the name of the message';//set the name of the message theMynotification.alertbody: ='content of the message';//set the contents of a message -Mynotification.number: = -;//Set icon LabelWuyiMynotification.firedate: = Now + encodetime (0,0,Ten,0);//set trigger message after 10 seconds the     //submits a message to the message center and fires at a specified time - notificationcenter1.schedulenotification (mynotification); WuLabel2.Text: ="'; -   finally Aboutmynotification.disposeof;//releasing the Message interface $   End; - End; -  - //Instant New Message alert A procedureTform1.button2click (sender:tobject); + var the mynotification:tnotification; - begin $Mynotification: =notificationcenter1.createnotification;//creating messages from the message center the   Try themynotification.name:='the name of the message';//set the name of the message theMynotification.alertbody: ='content of the message';//set the contents of a message theMynotification.number: = -;//Set icon Label -Mynotification.enablesound: = True;//There's a beep . inNotificationcenter1.presentnotification (mynotification);//submit message to Message Center theLabel2.Text: ="'; the   finally Aboutmynotification.disposeof;//releasing the Message interface the   End; the End; the  + //Cancel Message Reminder - procedureTform1.button3click (sender:tobject); the beginBayiNotificationcenter1.cancelnotification ('the name of the message'); the End; the  - //The main thing is to hook up events for the program - proceduretform1.formcreate (sender:tobject); the var the Afmxapplicationeventservice:ifmxapplicationeventservice; the begin theFlag: =True; -   ifTPlatformServices.Current.SupportsPlatformService (Ifmxapplicationeventservice, IInterface ( Afmxapplicationeventservice)) Then the Afmxapplicationeventservice.setapplicationeventhandler (handleappevent) the   Else theFlag: =False;94 End; the  the //The event that will be hooked up on the program, which is a new message reminder when minimized the functiontform1.handleappevent (aappevent:tapplicationevent;98 acontext:tobject): Boolean; About var - mynotification:tnotification;101 begin102   ifFlag = False Then103 Exit;104    CaseAappevent of theTapplicationevent.aeenteredbackground://Monitor when the program is running in the background to perform the following events106     begin107       //creating messages from the message center108Mynotification: =notificationcenter1.createnotification;109       Try theMynotification.name: ='the name of the message';//set the name of the message111         //set the contents of a message theMynotification.alertbody: ='content of the message';113Mynotification.number: = -;//Set icon Label theMynotification.enablesound: =True; theNotificationcenter1.presentnotification (mynotification);//submit message to Message Center theLabel2.Text: ="';117       finally118mynotification.disposeof;//releasing the Message interface119       End; -     End;121   End;122Result: =True;123 End;124  the //This event occurs when the program is minimized, when a reminder is taken .126 proceduretform1.notificationcenter1receivelocalnotification (sender:tobject;127 anotification:tnotification); - begin129   //operation of the program after receiving the message theLabel2.Text: ='received'+ Anotification.name +'the message! ';131 End; the 133 End.

Android Instance-set message alert (xe8+ Xiaomi 2)