关于ProgressBar问题!(期望老妖进来解答)，我仅有的30分全部奉献出来了。

[centerarea]

问题：我在打开数据集时，由于表数据较多，将近要一分钟左右，我希望在这段时间内给客户一个友好的提示，即可以显示数据读取进度，该怎么实现？还有就是读取数据的时间不定，而且未知，我怎么获取这些信息？

[pzoon]

ProgressBar开始
ProgressBar进行
ProgressBar结束

[centerarea]

说具体点啊，给个例子先

[andy_qhz]

void __fastcall TForm1::Button3Click(TObject *Sender)
{
ProBar->Min = 0;
ProBar->Max = 10000;
int i,j;
for (ProBar->Position = 0;
ProBar->Position < ProBar->Max;ProBar->StepIt())
{
float prect;
prect = (double)ProBar->Position/10000 * 100;
if (prect>50)
{
stText = "正在处理数据,已经完成" + AnsiString(prect) + "%";
StatusBar->Panels->Items[0]->Style = psOwnerDraw;
StatusBar->Repaint();
ProBar->Hide();
}
if (prect>65)
{
stText = "正在处理数据,已经完成" + AnsiString((double)ProBar->Position/10000 * 100) + "%";
StatusBar->Panels->Items[0]->Style = psOwnerDraw;
StatusBar->Repaint();
ProBar->Show();
}