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

S

sermon

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么让进度条前进,并且%也增加呢?

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

我是新手,多多指教
 
var i:integer;
begin
for i:=1 to 100 do
begin
self.Gauge1.Progress:=i;
sleep(500);
end;
end;
 
应该是这样
 
谢了
但是
(1)这个进度的时间没有根据真正的运行时间进展啊??
(我这里没有例子,谁能给个例子出来呢)
(2)在到达100%后,进度条的颜色能不能恢复原色呢?
 
1、这个要看你的要求了,别人也没办法帮你
2、你把Progress设成0就行了
 
谢谢zm30
 
接受答案了.
 
顶部