Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: ProgressBar

    Delphi
    by DeddyH, 21. Okt 2007
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  ProgressBar1.Position := ProgressBar1.Position + 33;
  if ProgressBar1.Position = 99 then
  begin
  ProgressBar1.Position := 100;
  Timer1.Enabled := false;
  end;
  end;