首先New一个Form1,然后在Form1上放置一个TProgressBar控件。点击MainForm的btn1按钮,实现进度条更新!
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::btn1Click(TObject *Sender)
{
Form1 = new TForm1(Application);
Form1->Show();
for(int i = 0; i < 100; i++){
Sleep(100);
Application->ProcessMessages();
Form1->pb1->Position = i;
}
Form1->Hide();
}