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

2021-04-22 02:26

阅读：653

第一种方法：

在窗体上放一个按钮：

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 按Esc快捷键退出程序的简单方法
文章链接：http://soscw.com/index.php/essay/77869.html

亲，登录后才可以留言！