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

本文整理自网络，侵删。

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

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

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

相关阅读 >>

Delphi 切换大小写的例子

Delphi 在tmemo中查找文本

Delphi如何在一个窗体中嵌入另一个窗体

Delphi 获取与设置系统环境变量

Delphi 以bytes为单位获取文件大小

Delphi 定时鼠标模拟点击

Delphi tgifimage：timage显示gif动画

Delphi图片base64编码

理解Delphi中sender用法

关于Delphi xe2的fmx的一点点研究之消息篇

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

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