Discussion :

[Jayceblaster]

bonjour a tous,

Voila je souhaite qu'entre l'exécution de 2 instructions sécoule 5 seconde... J'ai donc pris le ttimer mais je n'y arrive pas. J'arrive simplement a lui dire que toutes les 5 seconde il déclenche un événement particulier mais pas qu'il me permette d'exécuter 2 instruction en attendant 5 seconde entre les 2...

Comment dois je faire cela?

merci d'avance

[denokan]

voici un petit exemple qui vaut de longs discours :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.disBeep;
begin
  Beep;
  Dec(nbLancements);
  Timer1.Enabled := nbLancements > 0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  disBeep;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  nbLancements := SpinEdit1.Value;
  Timer1.Enabled := True;
  disBeep;
end;

[TicTacToe]

Sinon il y a sleep

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Instruction1
Sleep( 5000 )
Instruction2

Si il n'est pas voulu d'action entre les 2 instructions

[denokan]

le soucis de Sleep c'est qu'il va bloquer l'application, donc on ne pourra plus la déplacer, si elle est recouverte par autre fenêtre (Messenger par exemple) elle ne se redessinera plus, les boutons et menus seront inactifs, etc... alors qu'avec le timer l'application continue d'effectuer les autres traitements.

[TicTacToe]

Tout à fait d'accord Denokan ,

je présentais l'alternative car il n'a peut être pas besoin que l'application continue pendant la pause, je sais pas ?

Sinon, mieux vaut un application.ProcessMessages, avant le sleep et/ou des refresh avant la pause, tu as raison pour le ré-affichage des composants.

mais bon, on sait pas ce qu'il veut faire avec cette pause donc ... ?

[Jayceblaster]

pourquoi quand je fais ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
  Edit1.text := 'bonjour';
  sleep(10000);
  Edit1.text := 'Au revoir';

ca ne marche pas. En effet le tedit n'affiche jamais 'bonjour' apres 10 seconde il affiche simplement 'au revoir'

le sleep pourrait convenir dans mon cas

[Graffito]

Bonjour,

en mettant edit1.repaint avant le sleep, ca devrait marcher.

[TicTacToe]

+1 graffito
Denokan avait raison
c'est pour ca que

Sinon, mieux vaut un application.ProcessMessages, avant le sleep et/ou des refresh avant la pause, tu as raison pour le ré-affichage des composants.