Comment se servir du ttimer?

Version imprimable

11/07/2006, 13h43
Jayceblaster

Comment se servir du ttimer?

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 ;)

voici un petit exemple qui vaut de longs discours :P :

Code:

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;

11/07/2006, 13h59
TicTacToe
Sinon il y a sleep :)
Code:

1 2 3 Instruction1 Sleep( 5000 ) Instruction2
Si il n'est pas voulu d'action entre les 2 instructions
11/07/2006, 14h09
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.
11/07/2006, 18h21
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 ... ? :D
12/07/2006, 11h21
Jayceblaster
pourquoi quand je fais ca:
Code:

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
12/07/2006, 11h28
Graffito

Bonjour,

en mettant edit1.repaint avant le sleep, ca devrait marcher.
12/07/2006, 14h20
TicTacToe

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

Citation:

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.

:)