Delphi 按Esc快捷键退出程序的简单方法

本文整理自网络，侵删。

 
1>.设置窗体的keypreview属性为：True；//可以接收键盘操作

2>、在窗体的键盘事件中写：

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

相关阅读 >>

Delphi执行查询语句时的进度条怎么做

Delphi 数字分隔

Delphi 2009 indy10 idhttp get 中文出现乱码的问题

Delphi 提取html网页源文件纯文本函数可做采集

Delphi rest请求控件增加请求头时不编码

Delphi文件管理类函数

Delphi firedac mysql 连接

Delphi xe6调用android标准功能

Delphi操作unicode字符

paramstr返回运行当行程序的某个参数

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

转载请注明出处：木庄网络博客 » Delphi 按Esc快捷键退出程序的简单方法