如何停止程序中正在执行的事件，不用break-CSDN论坛

CSDN论坛 > Delphi > 语言基础/算法/系统设计

如何停止程序中正在执行的事件，不用break [问题点数：100分，结帖人wenhao_76]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅delphi 10.3 找不到TdbDateTimePicker控件 ⋅exe文件加密，加壳，授权的问题 ⋅如何用delphi 读取当前IE的COOKIE 更多帖子 关注私信空间博客 wenhao_76 本版专家分：170 结帖率 95.45%: 小弟是新人，近日开发程序遇到这个问题：比如说，我的程序上有10个按钮，对应了10个事件，当任何一个按钮在执行的时候，因为我自己的原因，我想中止他执行了，这个功能应该怎么实现呢？（这些事件中本身是没有加break这种函数的）谢谢了

0 2014-12-11 19:12:52

回复数 3 只看楼主引用举报楼主

⋅2019年新年快乐万事如意码家接分 ⋅XML 空节点保持开始与结束符号完整 ⋅Delphi Dll封闭Form 嵌入TabSheet中，失去焦点 更多帖子 关注私信空间博客 lyhoo163 本版专家分：50660 红花 2018年11月 Delphi大版内专家分月排行榜第一 2018年5月 Delphi大版内专家分月排行榜第一 2018年2月 Delphi大版内专家分月排行榜第一 2018年1月 Delphi大版内专家分月排行榜第一 2017年12月 Delphi大版内专家分月排行榜第一 2017年8月 Delphi大版内专家分月排行榜第一 2017年7月 Delphi大版内专家分月排行榜第一 2017年5月 Delphi大版内专家分月排行榜第一 2017年3月 Delphi大版内专家分月排行榜第一 2017年2月 Delphi大版内专家分月排行榜第一 2016年12月 Delphi大版内专家分月排行榜第一 2016年11月 Delphi大版内专家分月排行榜第一 2016年10月 Delphi大版内专家分月排行榜第一 2016年9月 Delphi大版内专家分月排行榜第一 2016年8月 Delphi大版内专家分月排行榜第一 2016年7月 Delphi大版内专家分月排行榜第一 2016年6月 Delphi大版内专家分月排行榜第一 2016年5月 Delphi大版内专家分月排行榜第一 2016年4月 Delphi大版内专家分月排行榜第一 2016年3月 Delphi大版内专家分月排行榜第一 2016年2月 Delphi大版内专家分月排行榜第一 2016年1月 Delphi大版内专家分月排行榜第一 2015年12月 Delphi大版内专家分月排行榜第一 2015年11月 Delphi大版内专家分月排行榜第一 2015年10月 Delphi大版内专家分月排行榜第一 2015年9月 Delphi大版内专家分月排行榜第一 2015年8月 Delphi大版内专家分月排行榜第一 2015年7月 Delphi大版内专家分月排行榜第一 2015年6月 Delphi大版内专家分月排行榜第一 2015年5月 Delphi大版内专家分月排行榜第一 2015年4月 Delphi大版内专家分月排行榜第一 2015年3月 Delphi大版内专家分月排行榜第一 2015年2月 Delphi大版内专家分月排行榜第一 2015年1月 Delphi大版内专家分月排行榜第一 2014年12月 Delphi大版内专家分月排行榜第一 2014年11月 Delphi大版内专家分月排行榜第一 黄花 2017年11月 Delphi大版内专家分月排行榜第二 2017年4月 Delphi大版内专家分月排行榜第二 2017年1月 Delphi大版内专家分月排行榜第二 2014年10月 Delphi大版内专家分月排行榜第二 2014年9月 Delphi大版内专家分月排行榜第二: 你提出的应该是事件，正在执行时中止它。
事件也是一个方法。突然中止一个方法。
要在事件中，设置接收消息，执行EXIT的机制。
中止它时，发送一个消息，它便中止。

0 2014-12-11 20:53:30

只看TA 引用举报 #1 得分 25

⋅不得闲的留言板 ⋅莫名其妙被禁言 ⋅准备开源一套异形UI控件 更多帖子 关注私信空间博客 不得闲 本版专家分：9877 版主 黄花 2015年1月 Delphi大版内专家分月排行榜第二: 。需要改代码
信号+消息

0 2014-12-12 09:13:44

只看TA 引用举报 #2 得分 25

⋅谁有kylix3，能共享一下给我吗？ ⋅有没有人弄过XE连接蓝牙4.0或者是BLE4.0也行 ⋅手机安卓怎么监听蓝牙COM口上的数据 更多帖子 关注私信空间博客 doloopcn 本版专家分：6285: buttonclick(sender:object);
var
    escSign:boolean;
begin
    //你要执行的代码
   if escSign then
       Exit;
   //下面这句一定要加上，不然你的按钮是按不下去的
  Application.ProcessMessages;
end;

0 2014-12-17 13:07:38

只看TA 引用举报 #3    得分 50

收藏帖子