begin
timer1.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.Position := progressbar1.position +1;
if progressbar1.position = progressbar1.Max then
progressbar1.position := 0;
end;
Mam taki kod. Jest to normalny kod poruszania sie progressbar. Np. Gdy timer1.interval:=1000 to wtedy co sekunde pasek się przesuwa + 1/100. W progressbar ustawiłem smooth by to było bardziej widoczne. Niestety, ale ja chce by ten pasek wciągu tej jednej sekundy przesuwał się od początku do końca i by to było widoczne, a nie że jest raz na początku, a zaraz jest na samym końcu (nie widać kiedy był np. w połowie).