delphi XE5实现按Android的Back键无法退出关闭程序  
官方Delphi 学习QQ群: 682628230(三千人)
频道

delphi XE5实现按Android的Back键无法退出关闭程序


本文章介绍了Delphi XE5实现按Android的Back键无法退出关闭程序,需要写一个程序,并且需要实现用户在点击“back”按键后,程序依然要运行,不能被关闭,经过研究后,可以通过控制Android中的Back消息,然后来实现这样的功能,具体代码很简单:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  if Key = vkHardwareBack then
  begin
    edit1.Text:='back';
    Key := 0;
  end;
end;

当窗体接受到 vkHardwareBack消息后,直接将Key:=0,那么窗体就接受不到Back消息,那么程序不会被关闭。


推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.079368114471436 seconds