Переработают ли обработчики событий в Embarcadero C ++ Builder?

Я хотел бы спросить совета о том, как справиться с проблемой Embarcadero CB10.1 с повторным входом. Скомпилировано в конфигурации отладки, для параметра «Отключить все оптимизации» задано значение true. Я работаю на Win7.

У меня есть простой контрольный пример. Форма с двумя кнопками. Обработчик события OnClick для каждой кнопки вызывает одну и ту же функцию с интенсивным использованием ЦП. Ниже приведен заголовочный файл, за которым следует файл программы.

#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;
}
//---------------------------------------------------------------------------

—
1-й случай: код показан, но без вызова ProcessMessages ().

Когда я запускаю это и нажимаю кнопку 1, загрузка процессора увеличивается почти до
100% в течение примерно 9 секунд. Форма перестает отвечать на запросы в течение этого времени.
Не могу переместить форму или нажать на кнопку 2.

Это работает, как я ожидал.

2-й случай: чтобы форма реагировала на пользователя во время работы процессора
интенсивная функция, я добавил вызов ProcessMessages (), как показано.
Теперь я могу перемещать форму и нажимать на другие кнопки.

Это не всегда хорошо, потому что я могу снова нажать кнопку 1 или
даже нажмите на кнопку 2. Любой щелчок приведет к повторному запуску функции интенсивного использования процессора. Чтобы не запускать функцию, интенсивно использующую процессор, во второй раз, я установил статический логический флаг «InUse». Я установил это
когда функция запускается и очищает ее, когда функция завершается.

Поэтому я проверяю флаг, когда я вхожу в интенсивную работу процессора и
если его установить (он должен был быть установлен предыдущим нажатием кнопки), я
показать сообщение, а затем подождите, пока флаг не очистится.

Но флаг никогда не сбрасывается, и моя программа зацикливается на операторе while
навсегда. Я хотел бы, чтобы программа просто ждала интенсивной работы процессора
чтобы завершить, а затем просто запустите его снова.

Если я установил точку останова в функции Spin () после того, как попал в тупик,
он никогда не срабатывает, указывая, что ни одно из событий не выполняется.

Я знаю, что VCL не является потокобезопасным, но здесь вся обработка занимает
место в основной теме. В моем фактическом коде есть много вызовов
Функции VCL, поэтому интенсивная загрузка ЦП должна оставаться в главном
нить.

Я рассмотрел критические разделы и мьютексы, но так как все в
основной поток, любое их использование не блокирует.

Может быть, проблема в стеке? Есть ли решение, которое позволяет мне справиться с этим без тупика?