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 winapi: setwindowtext - 设置窗口标题

Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明

Delphi xe5调用外部扫描程序――谷歌 zxing

Delphi字符串拆分(字符数限制)

Delphi判断字符串是否是数字、字母、大小写字母

Delphi xe5 实现获取本地的ip地址

Delphi Delphi 学习大师qq群讨论的字符串位置替换方法

Delphi firedac操作sqlite内存数据库

Delphi comobj调用wmplayer播放音乐

Delphi strutils.dupestring - 反复字符串

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

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