Delphi 如何按下ESC键退出程序

本文整理自网络，侵删。

 
分别在FormCreate,FormKeyPress事件中输入以下代码:

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  keypreview:= True;  //可以接收键盘操作
end;

 

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

 

相关阅读 >>

Delphi 只用一条语句就能使tbitmap反色

Delphi实现背景音乐播放

Delphi检查是否在64位windows环境中运行？

Delphi-dbgrid取得所有表中的值

Delphi中对excel表格文件的导入和导出操作

Delphi 判断目录是否可写

Delphi datasnap 获取客户端ip

Delphi 实现软件版验证码

Delphi 如何从url提取文件名？

Delphi 调用shellexecute打开txt文本

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

转载请注明出处：木庄网络博客 » Delphi 如何按下ESC键退出程序