Delphi 通过按键 ESC 关闭程序

本文整理自网络，侵删。

 
procedure TForm1.FormCreate(Sender: TObject);
begin
   KeyPreview := true;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #27 then Close;
end;
 

相关阅读 >>

Delphi post登陆Delphi盒子论坛源码

Delphi decodeutf8str解决系统自带utf8解码缺陷

Delphi 打开文件夹并定位到一个文件

Delphi控制程序在任务栏显示与隐藏

Delphi 获取本机 hostname ip address

Delphi 申请管理员权限级别

Delphi保存网页中的图片

Delphi 杨辉三角

关于Delphi下的三元运算符（三目运算）

Delphi 如何确定活动桌面是否已启用

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

转载请注明出处：木庄网络博客 » Delphi 通过按键 ESC 关闭程序