Code pour temporisation

Bonjour, je vous propose un code que j'ai trouvé sur le net et que j'ai remis en forme pour le partager avec vous. Ce code permet de créer une temporisation grâce à un composant TTimer et un composant TEdit.
Dans ce code, le TEdit sert à fixer le nombre de secondes de la durée de la temporisation et un bouton sert à la lancer. (Mettre impérativement un nombre dans le Tedit sous peine d'EConvertError). On peut aussi jouer si besoin sur la valeur de l'intervalle dans le code, notamment pour descendre la temporisation en dessous de la seconde.
Pour illustrer et pour ceux qui veulent essayer, j'ai choisi comme action l'affichage d'une image et sa fermeture après la durée de temporisation.

Chrispi

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := False; // Temporisation arretée // Actions à lancer avant le démarrage de la temporisation : Image1.Picture.LoadFromFile('C:\Chemin image\image.jpg'); Timer1.Interval := Strtoint(Edit1.Text) * 1000; // Intervalle en millisecondes ici (1000 = 1 s.) Timer1.Enabled := True; // La temporisation démarre end;

---

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.Timer1Timer(Sender: TObject); begin // Actions à faire à chaque intervalle : Image1.Picture.Clear; // Si on veut arrêter le timer à chaque coup : //Timer1.Interval := 0; // Si besoin pour réinitialiser l'intervalle Timer1.Enabled := False; // Arrêt de la temporisation end;

---