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使用迅雷的开放下载引擎下载

Delphi webbrowser添加到收藏夹

Delphi 计算一个字符串在另一个字符串中出现的次数

Delphi 字符串加密解密单元

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi 对话框单元

Delphi 获取文件的最新修改时间

Delphi 拖动form上的图片，form一起动

Delphi代码中嵌入asm代码

Delphi获取星期函数

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

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