Procedure delay

Résolu

zerargui Messages postés 65 Date d'inscription vendredi 24 octobre 2008 Statut Membre Dernière intervention 25 février 2019 - 11 févr. 2009 à 12:45
zerargui Messages postés 65 Date d'inscription vendredi 24 octobre 2008 Statut Membre Dernière intervention 25 février 2019 - 12 févr. 2009 à 18:44

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;

A voir également:

Delphi delay
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Delphi peche ✓ - Forum Delphi / Pascal
Delphi decompiler ✓ - Forum Delphi / Pascal
Delphi stringreplace - Forum Delphi / Pascal

3 réponses

Réponse 1 / 3

cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
11 févr. 2009 à 16:44

bonsoir,
déclares là en public et place dans les OnCreate ou sur clic d'un bouton

à tester..

cantador

Réponse 2 / 3

zerargui Messages postés 65 Date d'inscription vendredi 24 octobre 2008 Statut Membre Dernière intervention 25 février 2019
12 févr. 2009 à 12:39

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

Réponse 3 / 3

zerargui Messages postés 65 Date d'inscription vendredi 24 octobre 2008 Statut Membre Dernière intervention 25 février 2019
12 févr. 2009 à 18:44

merci cantador je vais essayer.

zerargui.

Discussions similaires

Delay(1000); ne functione pas?

wait, timer, sleep d'environ 10 nano-secondes

thread.sleep(5000) en delphi?

Parametre de ShellExecute

Fonction Pos().

Votre réponse

Discussions similaires