用于进度显示的Gauge这个控件怎么用啊?(50分)

S

sermon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #1

怎么让进度条前进,并且%也增加呢?

给个带原码的例子看看,谢谢

我是新手,多多指教

 

Z

zm30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #2

var i:integer;
begin
for i:=1 to 100 do
begin
self.Gauge1.Progress:=i;
sleep(500);
end;
end;

 

Z

zhengyue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #3

应该是这样

 

S

sermon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #4

谢了
但是
(1)这个进度的时间没有根据真正的运行时间进展啊??
(我这里没有例子,谁能给个例子出来呢)
(2)在到达100%后,进度条的颜色能不能恢复原色呢?

 

Z

zm30

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #5

1、这个要看你的要求了，别人也没办法帮你
2、你把Progress设成0就行了

 

S

sermon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #6

谢谢zm30

 

S

sermon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #7

接受答案了.