procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
gauge1.progress:=0;
for i:=1 to 100 do gauge1.progress:=i;
end;
var i: integer;
begin
gauge1.progress:=0;
for i:=1 to 100 do gauge1.progress:=i;
end;
调试欢乐多
var i: integer;
begin
gauge1.MinValue:=1;
gauge1.MaxValue:=10000;
gauge1.progress:=0;
for i:=1 to 10000 do gauge1.progress:=i;
end;