Delphi 按Esc快捷键退出程序的简单方法

本文整理自网络，侵删。

 
第一种方法：

在窗体上放一个按钮：

1>、设置按钮的Cancel属性为True；

2>、在按钮的点击事件中写：

procedure TForm1.btn1Click(Sender: TObject);
begin
  Close;
end;

 

Button按钮的Cancel属性：
                该属性决定按钮是否为Cancel按钮。当设置为true时，为Cancel按钮，即当用户按Esc键时，将执行按钮的
OnClick事件处理程序。当窗体中有多个Cancel按钮时，则只调用Tab Order属性最小按钮的OnClick事件。
 

第二种方法：

1>.设置窗体的keypreview属性为：True；//可以接收键盘操作

2>、在窗体的键盘事件中写：

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

相关阅读 >>

Delphi rtf文件转txt函数

Delphi clientdataset 与fdmemtable 创建 字段与追加记录

Delphi 快速删除非空文件夹

Delphi 多重循环

Delphi检测程序是否在优盘上运行

Delphi trayicon1如何把窗体关闭到系统托盘

Delphi 安卓读写ini文件

Delphi 命令行程序调用单元函数

Delphi写的播放器核心代码，播放mp3无压力

Delphi 程序窗体及控件自适应分辨率

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

转载请注明出处：木庄网络博客 » Delphi 按Esc快捷键退出程序的简单方法