本文整理自网络，侵删。
本文章介绍了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消息，那么程序不会被关闭。
相关阅读 >>
Delphi xe android platform uses-permission[1] 权限列表
Delphi kbmmemtable的简单应用（增删改查示例）
Delphi xe8中的firemonkey应用程序将文本复制到剪贴板
更多相关阅读请进入《Delphi》频道 >>
