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设置窗口透明

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi 删除确认对话框

Delphi文件捆绑器

Delphi-基础(for循环)

Delphi webbrowser控件属性介绍

Delphi 获取\xxx\xxxx\1234最后一级名称

Delphi 中的字符串

Delphi 使richedit中的链接可以点击

Delphi 2010 fastmm 内存泄露使用方法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...