请问我使用Gauge1进度条的时候,为什么到一定的进度的时候进度条的背景会变成黑色,而且进度条填充一瞬间到头了,但百分比显示却是当前进度。这是怎么回事?
procedure TForm1.Timer1Timer(Sender: TObject);
begin
gauge1.Progress:=Gauge1.Progress+1;
if Gauge1.Progress=100 then
begin
ShowMessage(Ok);
Timer1.Enabled:=false;
gauge1.progress:=0;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;