delphi 如何让程序在按了 Android 的 Back 键后不关闭当前 From 或者不 APP 退出

安卓底下，Delphi FireMonkey 做的 Android APP，默认情况下，按下手机的 Back 键，会关闭当前 Form。如果这个 Form 是主 Form 则整个 APP 退出。

本来，Form 有一个 OnCloseQuery 事件，这个事件会在一个 Form 被关闭的时候触发，该事件方法大概是这样的：

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

在该事件方法里面，将 CanClose := False；就应该不会关闭这个 Form。

经过测试，这个代码在 Windows 底下有效，在 Android 下面无效。

网上搜索了一下，应该是拦截 Form 的 KeyUp 事件：

 

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;  

  Shift: TShiftState);  

begin  

  Key := 0; //这样就不会关闭这个 Form  

end;  

 

当然了，不能随便什么输入，都变成 Key := 0。所以这里需要加上一个判断：

if Key = vkHardwareBack then

 

到这里，我们可以在 Form 的 OnKeyUp 事件方法里面，加上代码，判断用户是否按了 Back 键，如果是，则如果我们不想要这个 Form 关闭，则设置 Key := 0；

搞定。

 

来源：http://www.delphitop.com/html/FMX/3317.html