本文整理自网络，侵删。
Java开发安卓时，会使用onResume及onPause处理APP的执行状态，而在使用delphi做安卓开发时，在主窗体的各事件中不能处理这对应的状态切换事件（至少目前我没找到）。
有时候，我们需要在APP暂时处于非活动状态及恢复激活时完成一些工作，为此，需要增加一个事件的响应处理。
引用 FMX.Platform
增加一个事件处理过程：
function AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;1其中的TApplicationEvent 是事件状态，他包括了FinishedLaunching, BecameActive, WillBecomeInactive, EnteredBackground, WillBecomeForeground, WillTerminate, LowMemory, TimeChange，对应事件状态为：完成启动，变为活动，将变为非活动，进入后台，将成为前台，将终止，低内存，时间更改。
我们需要在事件过程是判断AAppEvent的值，并编写对应的处理过程就好。
其次，需要在系统启动创建时，将事件过程指向AppEvent，从而激活事件的执行。
procedure TForm_Main.FormCreate(Sender: TObject);var AppEventService: IFMXApplicationEventService;begin // 增加一个窗体激活事件的响应 if TPlatformServices.Current.SupportsPlatformService (IFMXApplicationEventService, AppEventService) then AppEventService.SetApplicationEventHandler(AppEvent);End;
来源：https://blog.csdn.net/tanqth/article/details/109143554 相关阅读 >>
Delphi idmessage1 idsmtp1 发送邮件支持https
Delphi 解决strtodatetime（）不是有效日期类型的问题
更多相关阅读请进入《Delphi》频道 >>
