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


本文整理自网络,侵删。

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

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

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

相关阅读 >>

Delphi fdquery 验证登录

Delphi memo1 统计行 列

Delphi 提升进程权限到sedebugprivilege

Delphi安全结束线程

Delphi xe10 手机内部系统相关操作(手机信息、震动、剪贴板、键盘、电话、拨号)

isleapyear:返回给定的年份是否是闰年

Delphi xe10实现移动端支付宝、微信支付接口

Delphi webbroker iis cgi 的配置

Delphi过程函数传递参数的八种方式

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

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



打赏

取消

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

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

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

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

评论

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