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