用FireMonkey写一个App跑在iPhone上面，这时候如果用户锁屏，APP如何得知？我试过在Form的OnDeactivite里面检测，发现在Windows底下，当用户锁屏（按住窗口键 L键）这里写代码会被触发。但在Android和iOS底下，不会被触发。网上关于这个问题的解答，都是如何用Object-C去捕获iOS的消息。在Delphi底下，该怎么做？

办法找到了。

1. uses FMX.Platform

2. 在 MainForm 里面，写一个方法：function HandleAppEvent(AAppEvent : TApplicationEvent; AContext: TObject ) : Boolean;

3. 采用以下代码把这个方法注册进去：

if TPlatformServices.Current.SupportsPlatformService
( IFMXApplicationEventService, IInterface( SvcEvents ) )
then
SvcEvents.SetApplicationEventHandler( HandleAppEvent );

4. 在 HandleAppEvent 方法里面，判断事件 AAppEvent 的类型。

有了第三步，当用户锁定屏幕的时候，HandleAppEvent 方法会被call到。