一个关于界面的简单问题

Question

我的程序中有这么一段代码：//这段代码是在Form1中执行的
Form2.show;
for i := 0 to 100 do
begin
  //做一些必要的事情
  Form2.ProgressBar1.StepIt;
  Label1.Caption = IntToStr(i) + '%';
end;程序很简单，一看就看出来了，Form2有一个进度条和标签，我希在进度条推进时，标签上能显示百分比。可是程序运行时只有进度条在动，始终看不到标签控件，直到for循环结束后标签控件的字才会显示出来。我该怎么做才能在进度条推进的同时能看到标签控件上的字？（同样情况在使用Image控件而不是Label控件时也会出现)

Answer 1

Form2.show;
for i := 0 to 100 do
begin
  //做一些必要的事情
  Form2.ProgressBar1.StepIt;
  Application.ProcessMessages; 
  Label1.Caption = IntToStr(i) + '%';
end;
改成这样试试，另外，Delphi6自带一个控件，
就是在进度条中间有个百分数的。
你找找看，大概是在win31，win32，samples这几个页上