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消息，那么程序不会被关闭。

 

相关阅读 >>

Delphi 根据窗口类判断程序是否运行

Delphi 替换其他程序里面的函数为自己的函数

Delphi程序在每个windows 会话中只执行一次

Delphi在postgresql中读写二进制数据

Delphi获取文件编码

Delphi idhttp代理设置

Delphi 获取memo的行数与列数

Delphi 多函数形式的多线程同步-线程执行顺序

Delphi uhttp_flood

Delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi XE5实现按Android的Back键无法退出关闭程序