事件处理程序是Embarcadero C++Builder中的重入程序吗

我想就如何处理Embarcadero CB10.1的重新进入问题征求一些建议。在调试配置中编译，"禁用所有优化"设置为true。我正在运行Win7。

我有一个简单的测试用例。有两个按钮的窗体。每个按钮的OnClick事件处理程序调用相同的CPU密集型函数。下面是头文件，后面是程序文件。

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
TButton *Button1;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
double __fastcall CPUIntensive(double ButonNo);
double __fastcall Spin(double Limit);
public:     // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Caption = "Pushed";
double retv = CPUIntensive(1);
Button1->Caption = "Button1";
if (retv) ShowMessage("Button1 Done");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button2->Caption = "Pushed";
double retv = CPUIntensive(2);
Button2->Caption = "Button2";
if (retv) ShowMessage("Button2 Done");
}
//---------------------------------------------------------------------------
double __fastcall TForm1::CPUIntensive(double ButtonNo)
{
//
static bool InUse = false;
if (InUse) {
ShowMessage("Reentered by button number " + String(ButtonNo));
while (InUse) {};
}
double retv;
InUse = true;
retv = Spin(30000);         // about 9 seconds on my computer
//retv += Spin(30000);      // uncomment if you have a faster computer
//retv += Spin(30000);
InUse = false;
return retv;
}
//---------------------------------------------------------------------------
double __fastcall TForm1::Spin(double Limit)
{
double k;
for (double i = 0 ; i < Limit ; i++) {
for (double j = 0 ; j < Limit ; j++) {
k = i + j;
// here there can be calls to other VCL functions
Application->ProcessMessages(); // added so UI would be responsive (2nd case)
}
}
return k;
}
//---------------------------------------------------------------------------

-第一种情况：显示的代码没有调用ProcessMessage()。

当我运行这个程序并点击按钮1时，CPU使用率几乎上升到100%持续约9秒。在此期间，表单变得没有响应。无法移动表单或单击按钮2。

正如我所期望的那样。

第二种情况：使表单在CPU期间对用户做出响应密集函数，我添加了ProcessMessage()调用，如图所示。现在，我可以移动表单并点击其他按钮。

这并不总是好的，因为我可以再次点击按钮1或甚至点击按钮2。任何一次点击都会再次启动CPU密集型功能。为了防止CPU密集型函数第二次运行，我制作了一个静态布尔标志"InUse"。我设定了当函数启动时清除，当函数完成时清除。

因此，当我进入CPU密集型功能时，我会检查标志如果它已设置(它一定是通过上次单击按钮设置的)显示一条消息，然后等待标志清除。

但是标志永远不会清除，我的程序在while语句上循环永远我希望程序只等待CPU密集型功能完成，然后再次运行。

如果在遇到死锁后在Spin()函数中设置了断点，它从不触发，表示两个事件都没有执行。

我知道VCL不是线程安全的，但在这里，所有的处理都需要放置在主线程中。在我的实际代码中，有许多调用VCL函数，因此CPU密集型函数必须保留在主函数中线

我考虑过关键部分和互斥，但由于所有内容都在主线程，任何使用它们都不会阻塞。

也许是堆栈问题？有没有一个解决方案可以让我在没有死锁的情况下处理这个问题？