RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序 > 正文

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

作者:admin 来源: 日期:2018/3/3 23:50:38 人气: 标签:

第一种方法:

在窗体上放一个按钮:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料