Hi

Da ich eigentlich nie mit einer Progressbar Arbeite habe ich mal Fragen dazu

Wie Schafe ich es die Progressbar langsam durschlaufen zulassen bis sie Stück für stück

in 3 Sekunden komplett geladen ist

ich habe es mal so versucht

markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var zahl, i : integer ;
begin
 for i:=0 to 33 do
  begin
   ProgressBar1.Position:= i;
  end;
end;

danke euch schonmal

markieren

Delphi-Quellcode:

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;

ich würde es so machen (bei Button-Klick):

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,sl : integer;
const t = 3000; // Zeit in ms
begin
     sl := t div progressbar1.max;
     for i := 0 to progressbar1.max do
     begin
          progressbar1.Position := i;
          sleep(sl);
     end;
end;

P@Tti