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；
搞定。

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

相关推荐

评论