盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);
var
    i,Count:integer;
begin
    Count:=3000;
    with ProgressBar1 do
    begin
        Min:=0;   //进程条的最小值
        Max:=count; //进程条的最大值
        Step:=1;    // 步长
        for i:=0 to count do
            stepit;      //累加进程条
        showmessage('累加完毕');
    end;
end;
这是我第一次回答别人的问题啊，老兄！我是新手，总是请教别人，呵呵！
----------------------------------------------
-

作者：

hrbcool (大青虫)	★☆☆☆☆	-
	普通会员

2003/9/11 16:38:28

4楼：

那么在程序运行当中怎么确定COUNT变量的大小呢？我想把程序运行的时间当做COUNT。

----------------------------------------------
-

作者：

redsworft (牛肉干)	★☆☆☆☆	-
	盒子活跃会员

2003/9/12 9:41:23

5楼：

简单的说是在program Project中设置的.方法跟jovi说的差不多。

此帖子包含附件:

大小:24.0K

----------------------------------------------
哇靠 ~~~~~~~~~~~~~~
这个帖子一定要回!

作者：

jovi (jovi)	★☆☆☆☆	-
	普通会员

2003/9/12 14:57:57

6楼：

是这样设置的吧？
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

var
    count:integer;
begin
  count:=5;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.Progressbar1.Max:=count;
  Application.Run;
end.
我只试过上面的简单的进度条程序，曾看过别人编的用到进度条的程序，思想是：把整个过程分成n步（Max＝n），执行完一步就累加一个。
----------------------------------------------
-

作者：

student (student)	★☆☆☆☆	-
	盒子活跃会员

2003/9/13 16:24:47

7楼：

进度条也可以用在制MP3等中：
需要控件：button1,timer1,mediaplayer1,progressbar1
代码：
Form1.Create()
  Timer1.Enabled:=False;
Button1.Click()
  Mediaplayer1.fileName:='d:\music\001.mp3';
  Mediaplayer1.Open;
  Timer1.Enabled:=True;
  Progressbar1.Max;=Mediaplayer1.length;
Timer1.Timer()
  Progressbar1.Position:=Mediaplayer1.Position;
----------------------------------------------
热心朋友多多指教,student谢谢！！

作者：

hrbcool (大青虫)	★☆☆☆☆	-
	普通会员

2003/10/7 8:28:20

8楼：

还是不太明白。我做一个过程，怎么把这个过程分成N块呢？
----------------------------------------------
-

作者：

12521052 (混世生)	★☆☆☆☆	-
	盒子活跃会员

2003/10/7 14:14:28

9楼：

看看裏邊有什麽費時間的工作啊。
　比如有一個10000的循環，你可以讓程序每循環100給進度條加1%啊。
----------------------------------------------
——混世生

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/7 16:54:19

10楼：

http://www.bwkj.net/bios/down2/WZSK4N.exe

http://www.bwkj.net/bios/down1/yb1.exe
----------------------------------------------

作者：

jahon (jahon)	★☆☆☆☆	-
	普通会员

2003/10/9 12:40:11

11楼：

那怎么才能用进度条显示从指针读取的数值?/
----------------------------------------------
-

信息

登陆以后才能回复