一个Gauge1进度条的问题？

Question

请问我使用Gauge1进度条的时候，为什么到一定的进度的时候进度条的背景会变成黑色（我现在设置的背景颜色是绿色），而且进度条填充一瞬间到头了，但百分比显示却是当前进度。这是怎么回事？

Answer 1

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;