ProgressBar

[patti]

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

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