une tempo avec un TeditRésolu

Question

cedric
bonjour

bonjour je voudrais cr&#233;er une temporisation avec un Timer et un Tedit.De mettre la valeur de la temporisation dans le Tedit appuyer sur un bouton et la tempo ce lance et ce coupe quand la tempo ce termine.
comment fait on cela??
merci d'avance!

Lionel_gross · Accepted Answer

imaginons edit1 &#224; l'&#233;cran qui contient 10 (secondes)
procedure button1click(sender ...
begin
   timer.enabled := false; // pour &#234;tre s&#251;r qu'il est arret&#233;
   // &#233;ventuelles actions &#224; faire avant de d&#233;marrer
   ...
   
   timer.interval := strtoint(edit1.text) * 1000; // interval est en millisecondes
   timer.enabled := true; // le timer d&#233;marre
end;

dans le timer, onglet evenements click sur OnTimer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   // &#233;ventuelles actions &#224; faire &#224; chaque interval
   ...
   // si l'on veut arreter le timer &#224; chaque coup :
   timer.interval := 0; // reinitialise l'interval
   timer.enabled:=false; // arret du timer
end;

attention. un process long, ou qui boucle, ne permet pas au timer de compter correctement le temps si l'on n'ins&#232;re pas :
   application.processmessages 
dans les boucles longues (&#224; tester)

Salut

Une tempo avec un Tedit

1 réponse

Votre réponse