cs_norton
Messages postés215Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention21 août 2011
-
21 mai 2003 à 15:07
cs_Bestiol
Messages postés833Date d'inscriptiondimanche 6 janvier 2002StatutMembreDernière intervention 3 novembre 2005
-
22 mai 2003 à 10:05
Hello, je débute dans la programmation en Delphi et j'aimerai faire avancer un gauge avec un timer
avec la valeur du timer 1
en vb ca donnerai ca
Private Sub Timer1_Timer()
If ProgressBar1.Value = 100 Then
End
Else
ProgressBar1.Value = ProgressBar1.Value + 1
End If
End Sub
j'aimerai faire ca mais en delphi seulemment je ne sait pas du tous comment faire si vous avez un ptit bout de code pour
m'aider.
Merci bon coding a tous .
Norton
cs_Bestiol
Messages postés833Date d'inscriptiondimanche 6 janvier 2002StatutMembreDernière intervention 3 novembre 20051 21 mai 2003 à 19:56
Salut !
En Delphi, la propriété Interval du Timer est en millisecondes... Donc si tu veux faire avancer ta ProgressBar toutes les secondes, il faut laisser la valeur par défaut : 1000
Ensuite, le code VB que tu donnes correspond, en Delphi, à :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If ProgressBar1.Position = 100 then Exit; //On sort si c'est fini