主题：delphi中gauge如何用，
guozhengbin
[专家分：0] 发布于 2006-07-26 18:47:00
delphi中gauge如何用，谢谢了
回复列表 （共1个回复）
沙发
wealthy [专家分：1840] 发布于 2006-07-26 21:16:00
******
var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
gauge1.Progress:=i;
if gauge1.Progress=gauge1.MaxValue then i:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
timer1.Enabled:=true;
end;
*****
我来回复
您所在位置：