Delphi 如何按下ESC键退出程序

本文整理自网络，侵删。

 
分别在FormCreate,FormKeyPress事件中输入以下代码:

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  keypreview:= True;  //可以接收键盘操作
end;

 

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then application.terminate;  //关闭程序
end;

 

相关阅读 >>

Delphi 获取网卡物理地址之内存获取方式函数源码

Delphi richedit根据鼠标位置定位光标的方法

Delphixe edit限制只能输入数字

Delphi 关闭uac 单元

Delphi10.3构造一个json数据的第二种方法，并格式化输出

Delphi 中的颜色

Delphi xe5 android 程序退出功能

Delphi application.restore不起作用了,该如何处理

Delphi做繁体简体转换

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

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

转载请注明出处：木庄网络博客 » Delphi 如何按下ESC键退出程序