大问题 在退出一个循环后发现的问题

timgreen 2003-08-24 10:41:44
我在程序进入循环前将一些控件的enabled:=false
退出循环后改回来
但在退出循环后发现如果在循环时点击了button退出后不是会触发onclick
我不想应该怎么做呢?
...全文
36 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
timgreen 2003-08-28
  • 打赏
  • 举报
回复
up
IORILI 2003-08-28
  • 打赏
  • 举报
回复
学习
BES 2003-08-27
  • 打赏
  • 举报
回复
在Button的OnClick事件中写入:

begin
If not ButonName.Enabled then Exit;
ButonName.Enabled := False;
执行循环.....
ButonName.Enabled := True;
end;
江山易改 2003-08-27
  • 打赏
  • 举报
回复
for i := 0 to 100000 do
begin
Application.ProcessMessage;
//ur operation
Application.ProcessMessage;
//ur operation
// it will take ur some time to do it
end ;
bluenightsky 2003-08-27
  • 打赏
  • 举报
回复
进入循环隐藏鼠标,退出显示
showcursor
timgreen 2003-08-27
  • 打赏
  • 举报
回复
hkbarton(宁静至远||淡泊明志)说的不错 但我的这个程序仅仅只有一个功能用多线程不值啊
但我觉得要处理的响应应是存在一个队列中吧 我们应该可以用一种方法来清空这个队列
hkbarton 2003-08-27
  • 打赏
  • 举报
回复
是会出现这种情况的,你可以在进入循环前将鼠标的指针变为等待样式(漏斗)以提醒用户不要操作,但实际上这起不到实质性的作用。在进行需要耗费大量时间来进行的循环中让程序处于等待状况本来就不好,所以这种情况建议使用多线程
timgreen 2003-08-27
  • 打赏
  • 举报
回复
不好意思打错一个字  不->还
我在程序进入循环前将一些控件的enabled:=false
退出循环后改回来
但在退出循环后发现如果在循环时点击了button退出后还是会触发onclick
我不想应该怎么做呢?
kangji 2003-08-27
  • 打赏
  • 举报
回复
循环时不处理消息,程序怎么能收到click消息呢?
timgreen 2003-08-27
  • 打赏
  • 举报
回复
Application.ProcessMessage;
我知道 但我在循环中根本不想去响应窗体
lwluser 2003-08-25
  • 打赏
  • 举报
回复
你说清楚点啊,,,最好把代码发上来看看,我有点不明白你的意思,
如果照你上面所说是在循环中的代码占用了系统资源,就像你点了
退了按钮,程序没有把就对吗?如果是这样的话在你的循环语句中
的适当位置加上Application.ProcessMessage;就行了....
vuen 2003-08-24
  • 打赏
  • 举报
回复
在循环体里加上:
Application.ProcessMessage;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧