Delphi程序消息无响应的解决办法

1、打开Delphi7集成开发环境，在默认工程的Form1窗体上放两个Button按钮。

3、F9运行程序，点击Button1，Button1的Caption变化。再点击Button2无响应，因为程序在执行很大循环,只能等待循环结束。

5、双击Button2进入OnClick事件方法，并写如下代码：procedure TForm1.Button2Click(Sender: TObject);begin b:=False; ShowMessage('点我');end;