本文整理自网络，侵删。
本文章介绍了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 判断uefi与 legacy bios启动模式
Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题
更多相关阅读请进入《Delphi》频道 >>
