Procedure delay [Résolu]

Signaler
Messages postés
65
Date d'inscription
vendredi 24 octobre 2008
Statut
Membre
Dernière intervention
25 février 2019
-
Messages postés
65
Date d'inscription
vendredi 24 octobre 2008
Statut
Membre
Dernière intervention
25 février 2019
-
je veux appeler ce morceau de code ci-dessous dans n'importe quelle fiche ou je me trouve comment dois-je procéder?
et merci.


procedure delay(delai:Double);
Var HeureDepart:TDateTime;
begin
HeureDepart:=now;
Delai:=delai/24/60/60/1000; //transforme les millisecondes en fractions de jours
repeat
Application.ProcessMessages; // rend la main à Windows pour ne pas blocquer les autres applications
Until Now>HeureDepart+Delai;
end;

3 réponses

Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
bonsoir,
déclares là en public et place dans les OnCreate ou sur clic d'un bouton


à tester..

cantador
Messages postés
65
Date d'inscription
vendredi 24 octobre 2008
Statut
Membre
Dernière intervention
25 février 2019

ce que je veux éviter c'est écrire le code dans chaque unite ou j'ai besoin de faire l'appel à la méthode delay
comment vais-je la déclarer et ou précisément?
Merci à Contador pour tes réponses.

Cordialement Amar
Messages postés
65
Date d'inscription
vendredi 24 octobre 2008
Statut
Membre
Dernière intervention
25 février 2019

merci cantador je vais essayer.

                                                     zerargui.