bonjour j essaie de realiser un chronometre.Pour l instant je n en suis qu a la gestion des secondes.mais j ai un probleme j ai consideré l evenement on timer et j ai mis un intervalle de 1000.j ai fait un label qui recevra les secondes.voici le code que j ai tapé dans on timer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Timer1Timer(Sender: TObject);
 
var
 
seconde:integer;
begin
seconde:=0;
 
seconde:=seconde+1;
label_sec.caption:=inttostr(seconde);
 
 
end;
quand je lance le programme le label seconde affiche 1 et apparemment s arrete.Dois Je comprend donc qu une fois le premier interval de 1000 passé le timer s arrete?

j ai donc essayer de mettre ce bloc d instruction dans une boucle repeat....until timer1.enabled=false; en ajoutant un bouton qui met le timer afalse par la suite.

mais probleme a l execution plantage apparement ça lui plait pas du tout.

comment faire pour que le timer continu apres l intervalle de 1000 ms