谁能帮忙写一段progressbar随着timer的倒计时而均匀增长的代码？谢谢

没人帮忙啊，我再顶起来

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls;type TForm1 = class(TForm) ProgressBar1: TProgressBar; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);beginProgressBar1.StepIt;end;procedure TForm1.FormCreate(Sender: TObject);beginProgressBar1.Max:=100;ProgressBar1.Min:=0;ProgressBar1.Step:=1;timer1.Interval:=100;end;end.

非常感谢，但是这样做出来的进度条不动啊

TIMER要设为可用

呵呵