//转发自QQ群赵二传提供源码,在此感谢!
bool bStop;
//---------------------------------------------------------------------------
//点击开始按钮
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bStop=false;
for(int i=0;;++i)
{
Memo1->Lines->Add(IntToStr(i));
Application->ProcessMessages();
if(bStop)
break;
if(Application->Terminated)
break;
Sleep(200);
}
}
//---------------------------------------------------------------------------
//点击停止按钮
void __fastcall TForm1::Button2Click(TObject *Sender)
{
bStop=true;
}