Discussion :

[mickael.be]

Re, Salut,

Quand je fais un Sleep() ca freeze toute mon application..
Je voudrais seulement mettre en suspend une procédure moi, pas tout !

Code :

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

1
2
3
4
5
 
 
  BitBtn1.enabled:=false;
  sleep(1200);
  BitBtn1.enabled:=true;

le but: griser une casse texte un certain laps de temps Apres le Click pour éviter un genre de flood..

Merci

[qi130]

il faut passer par un Ttimer
dans le Onclick du bouton,
tu l'actives
et tu mets enabled à false pour ton bouton

et dans l'événement OnTimer, tu le désactives et tu remets enabled le bouton

[sofiane44]

Utiliser le composant Timer qui existe dans la pallete system

-il faut mettre un intervale de temp dans la propriétée "interval" exprimée en millisecondes
-et ds l'évenement "OnTimer" mettre "les actions Traités".

alors achaque inervalle de temps (existe dans la propriétée "inerval"),
les actions spécifiés dans l'évenement "OnTimer" sont éxecutés
et selon l'exemple que tu a proposé:

Code :

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

1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Enabled:=true;
 
end;

et on suppose que Timer1.interval=5000,tButton1.Enabled=false;

alors aprés 5 seconds,la propriéteé Enabled du Button1 sera True;

merci

[smyley]

en passant pensez à utiliser les balises code, c'est teeellement plus clair