为什么会出现这样的问题,好糊涂呀!ProgressBar1进度条的!(20分)

  • 主题发起人 主题发起人 delphiere
  • 开始时间 开始时间
D

delphiere

Unregistered / Unconfirmed
GUEST, unregistred user!
我在panel上面显示一个label,一个ProgressBar1
用按钮控制,panel的显示。当显示panel的时候,ProgressBar1进度条开始读取资料,
可为什么panel显示的时候,进度条也在滚动,而label却没有显示,非要在停止的时候,
label才显示出来。如果panel没有隐藏这个问题是不会发生的。谢谢!
代码:
var
i:integer;
begin
panel1.Visible :=true;
ProgressBar1.Position:=0;
ProgressBar1.Step:=1;
for i:=1 to Count do
ProgressBar1.StepIt;

 
for i:=1 to Count do
begin
ProgressBar1.StepIt;
application.processmessages;
end;
 
用application.ProcessMessages;
 
加了这句还是一样呀,都是等到进度条到了最后,label才显示!
 
for i:=1 to Count do
begin
ProgressBar1.StepIt;
label.caption:=inttostr(i);
application.processmessages;
end;
 
还有,怎么让进度条到最后的时候,消失呢?
 
for i:=1 to Count do
begin
ProgressBar1.StepIt;
label1.caption:=inttostr(i);
application.processmessages;
end;

ProgressBar1.Position:=0;
 
设Visible为False不就可以了!
 
妙兔无花后来的方法没错
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
909
DelphiTeacher的专栏
D
D
回复
0
查看
704
DelphiTeacher的专栏
D
D
回复
0
查看
666
DelphiTeacher的专栏
D
D
回复
0
查看
661
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部