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远程开机再配合远程控制

Delphi opendialog1 打开多个文件

Delphi 如何判断clipboard剪切板中的内容的类型

Delphi之format函数

Delphi fdmemtable1 内存表字段排序

Delphi dbnavigator控件的按钮显示成中文

Delphi 进程程序多开调用单元

Delphi之伪造referer下载文件

Delphi 时钟

Delphi 转换一批.bmp 文件为 .jpg

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

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