faire une pose avant l'éxecution d'une instructionRésolu

Question

Bonjour,

J ai un programme qui met mon &#233;cran en veille lorsque je click sur un
bouton, le prob c est que lorsque l on bouge la souris en cliquant la
veille s enl&#232;ve. J aimerais savoir comment faire une ptite attente (10
secondes environ) juste avant la mise en veille. 

Merci d'avance.

Cirec · Accepted Answer

Salut,
essaye un Sleep(10000);
// lancer l'&#233;cran de veille
ton programme serat fig&#233; pendant 10 secondes
o&#249; alors par timer
Timer1.Enabled := True;

et dans l'&#233;v&#232;nement OnTimer:

Time1.Enabled := False;
// lancer l'&#233;cran de veille

@+
Cirec

Matt 261 · Answer

Je pense que tu devrais utiliser un Sleep(10000) 1000=1s donc 10000=10sec et comme ça ton application va attendre pendant 10sec avant d'attaquer autre chose. Moi c'est comme ça que je ferais...

@+
  Matt

Matt 261 · Answer

Cirec à (ENCORE) été plus rapide... décidément...
Cirec, l'homme qui répond plus vite que son ombre...

  Matt

Cirec · Answer

@ Matt 
ce coup l&#224; c'est moi, mais je suis souvent pris de vitesse par d'autres membres qui sont bien plus rapide que moi
ps : Le teste de ta source (ClubIn.scr) a &#233;t&#233; fait sous XP pro SP2 

@+
Cirec

Matt 261 · Answer

Moi aussi y'a des sujets ou j'aimerais beacoup répondre et ou d'autres ont répondus avant moi...
Merci beaucoup Cirec pour le test de ma source.

bobstien · Answer

Merci beaucoup, c est exactement  ce qu il me fallait.

DeltaFX · Answer

Ou alors code une tite fonction Snooze (faire un PETIT somme), moins autiste que Sleep qui te bloque toute ton appli.

procedure Snooze(Duration,Step:integer);
var i:integer;
begin
  for i:=0 to (Duration div Step -1) do
  begin
    sleep(Step);
    Application.ProcessMessages;
  end;
end;

Ca fait strictement pareil, sauf que l'appli respire.

Matt 261 · Answer

Avec Sleep elle fait de l'apnée du sommeil, elle ne respire plus pendant qu'elle dort tu as résonds DeltaFx... mais si on veut tout bloquer on bloque tout... tout dépend de ce que l'on veut faire.

Cirec · Answer

D'accord avec Matt sur ce coup, 
ici Bobstein demande que son application marque un temps d'arr&#234;t avant d'ex&#233;cuter une autre commande et pas de r&#233;pondre au messages windows pendant la pose.
"moins autiste que Sleep qui te bloque toute ton appli"
je crois que c'est ce qu'on lui demande : (quand je dors je ne r&#233;pond pas au t&#233;l&#233;phone ni au message) 

ceci dit ta procedure peut &#234;tre tr&#232;s utile (si on a besoin d'un r&#233;pondeur lol)
si on a besoin de traiter les messages pendant une pose.
Mais attention ce n'est plus une vrai pose,  en effet, si tu cliques sur un bouton pendant cette pose, l'action sera ex&#233;cut&#233; !!!

Comment figer une application sans la figer  (o&#249; comment laver plus blanc que blanc c'est du m&#234;me tonneau) 
&#224; ce compte l&#224; on peut utiliser un timer qui fait le m&#234;me travail non 

@+
Cirec

DeltaFX · Answer

Ah.... bon ben j'avais pas capt&#233; ca comme ca.

Le probleme de bobstien si je comprend bien, c'est qu'il veut que l'utilisateur ai fini de remuer la souris quand l'ecran d&#233;marre, donc laisser 1-2 secondes d'attente le temps de lacher le maudit mulot. Et ca, ca peut se faire avec un sleep ou un snooze.

Ou en poussant le vice, d&#233;marrer un timer de N seconde, et mettre un code dans le mouseMove de la form qui r&#233;initialise le timer. L&#224; tant que la souris est pas immobile depuis au moins l'intervale du timer, l'ecran se lance pas.

Matt 261 · Answer

"D'accord avec Matt sur ce coup," pour une fois je me suis pas plant&#233; (lol) je crois que Sleep c'est l'une des premi&#232;res choses que j'ai connu (apr&#232;s 2 mois de prog bien sur).

<hr size="2" width="100%">La paresse est la m&#232;re du g&#233;nie...

Faire une pose avant l'éxecution d'une instruction

11 réponses

Votre réponse

Discussions similaires