[delphi] Riempire una progress bar con animazione

[lyllo]

salve a tutti,
mi chiedevo come si potesse fare per riempire una progressbar invece che istantaneamente, gradualmente una posizione alla volta fino al valore imposto ad esempio da position:=10; a position:=70.
grazie.

[MrCocò85]

se ho capito bene tu vuoi che la progress bar di incrementi da solo,quindi se così è ti serve un ttimer;nell'evento on timer basta che scrivi una cosa del genere:

progressbar.position:=progressbar.position+1;


spero di aver centrato il problema..

[lyllo]

si il problema è centrato,
solo che a me serve che si fermi in un punto specifico che non necessariamente è il MaxValue...

[MrCocò85]

metti al condizione nell'evento on timer

if progressbar.position=50 then
progressbar.position:=0
else
progressbar.position:=progressbar.position+1;

questo codice aumenta la progress bar fino a quando non arriva la valore 50 dopodichè torna a 0 e ricomincia..

[lyllo]

no vorrei semplicemente che salga da 10 a 70, per esempio, in modo "animato"

[MrCocò85]

metti questo codice nell'evento on timer

if progressbar.position<70 then
progressbar.position:=progressbar.position+1;

[lyllo]

ok provo e ti faccio sapere,
grazie

[AlbertoPicca]

Originariamente inviato da MrCocò85
metti questo codice nell'evento on timer

if progressbar.position<70 then
progressbar.position:=progressbar.position+1;

Sapendo che viene usato un TTimer, a mio avviso conviene fermare proprio questo componente, disabilitando quindi l'avanzamento della
progressbar.
Non ha senso fare continuare un contatore quando non occorre più incrementare il valore della barra di progressione, ci sarebbe solo uno spreco di risorse (anche se pur irrilevante...).
Quindi :

 
   Timer.Enabled := progressbar.position < 70;
   Inc(progressbar.position);

E successivamente usare un pulsante che ha la funzione di resettare il contatore e la barra di progressione:

 
procedure TForm1.Reset;
begin  
  progressbar.position := 0;
  Timer.Enabled := True;
end;

[lyllo]

ho provato ma non funziona

il riempimento è sempre istantaneo

[alka]

Senza usare un TTimer, il riempimento è sempre istantaneo poichè ottenuto con un ciclo, il refresh del controllo ProgressBar viene effettuato solo al termine di tale ciclo, mostrando solo lo stato finale.

Si dovrebbe richiamare il metodo Update del controllo ProgressBar ad ogni ciclo, oppure usare un TTimer come già suggerito, ovviamente con un tempo Interval adeguato.