请教下面的语句,当进度条读取到100的时候,LABLE1就隐藏掉(0分)

T

topdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #1

请教下面的语句,当进度条读取到100的时候,LABLE1就隐藏掉,但是在运行的时候,进度条没
有读取到,是否还要加个TIME控件,还是我的语句出问题了,请帮忙修改一下?
procedure Tfrmlogin.FormCreate(Sender: TObject);
var
i:integer;
begin
label1.Caption :='正在连接数据,请稍候....';
for i:=0 to bar1.Position do
begin
bar1.Position:=bar1.Position +1;
if bar1.Max =100 then
label1.Visible :=false;
end;
end;

 

小

小小武

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #2

for i:=0 to bar1.Position do
~

 

T

topdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #3

这是怎么啊,这两个是什么意思啊.请大侠比点详细的例子我吧,谢谢

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #4

label1.Caption :='正在连接数据,请稍候....';
for i:=0 to 100 do
bar1.Position:=i;
if bar1.postion =100 then
label1.Visible :=false;

 

T

topdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #5

谢谢~~~我想再请教,如果让LABEL显示进度条的进度啊,例如0-100,请再帮忙修改,谢谢

 

T

topdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-15

• #6

谢谢~~~我想再请教,如果让LABEL显示进度条的进度啊,例如0-100,和设置那个属性可以减慢
读取速度的,因为程序一开始就读取完,请再帮忙修改,谢谢

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #7

label1.caption:=inttostr(i);
把I设大了就慢了。

 

T

topdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #8

还是不行啊,我的程序改成如下,也改变不了读取的速度减慢,应该设置那个属性啊,

procedure tfrmlogin.login;
var
i:integer;
begin
try
label1.Caption :='正在连接数据,请稍候....';
for i:=0 to 100 do
begin
label1.Caption:=inttostr(i);
bar1.Position :=i;
if bar1.Position =100 then

label1.Visible :=false;
end;
except
beep;
showmessage('读取数据失败!正退出程序...');
close;
end;
end;

 

E

eski

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #9

是不是应该在循环中proessmessage一下

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #10

在楼上的老兄的基础上改了一下
procedure tfrmlogin.login;
var
i:integer;
begin
try
label1.Caption :='正在连接数据,请稍候....';
for i:=0 to 100 do
begin
label1.Caption:=inttostr(i);
sleep(100);
label1.Update;
bar1.Position :=i;
if bar1.Position =100 then

label1.Visible :=false;
end;
except
beep;
showmessage('读取数据失败!正退出程序...');
close;
end;
end;