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

本文整理自网络，侵删。

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

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

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

相关阅读 >>

Delphi 传输文件例子的核心代码

Delphi 文件大小 显示k kb mb gb tb

Delphi 动态创建组件，单个创建、单个销毁

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi vista和win7下如何弹出uac

Delphi 获取程序自身大小的函数

Delphi判断电脑连接到 internet 了吗？

Delphi 时间与字符串

Delphi 无法结束进程的程序

Delphi getprocessidentity 获取当前登录状态的管理员

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

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