RSS订阅 | 匿名投稿
您的位置:网站首页 > FMX > 正文

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

作者:admin 来源: 日期:2018/1/5 14:12:58 人气: 标签:

安卓底下,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;
搞定。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料