silversword666
Messages postés10Date d'inscriptionjeudi 14 juin 2007StatutMembreDernière intervention13 mai 2009
-
12 mai 2009 à 18:21
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 2010
-
17 mai 2009 à 12:45
Bonsoir,
Je tente dans un programme, d'utiliser un compte à rebours de 5 minutes, avec affichage de ce compte à rebours et au bout des 5 minutes, une impossibilité d'écrire dans un TEdit.
Pour la partie interdiction d'écrire dans le TEdit, je devrais m'en sortir, mais est-il possible de créer un compte à rebours avec un TTimer ou dois-je créer une fonction?
Merci d'avance pour vos réponses et bonne soirée!
Cordialement,
SSW666.
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 201012 12 mai 2009 à 18:53
Plutôt que de créer des variables globales, autant mettre la valeur de compteur dans la propriété Tag du TEdit et décrémenter jusqu'à 0.
Et pour l'interdiction d'écriture, faire :
Edit.ReadOnly := true;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// incremente de 1 toute les secondes le compteur
inc(Counter);
// affichage du compteur
LabelCounter.Caption := format('%.2d:%.2d',[Counter div 60, Counter mod 60]);
// Si compteur = 5 minutes
if Counter = MaxCounter then
begin
Timer1.Enabled := false;
Edit1.Enabled:=false;
end;
end;
end.
Pour ce qui est du TForm1.Edit1KeyPress =>
La frappe de la touche Entrée ne fonctionne pas, lorsque j'appuie sur cette touche, j'ai un bip et rien ne se passe. J'ai créé un label test et rajouté une ligne LabelTest.caption:=Chaine; après Chaine := Edit1.Text; mais rien ne s'affiche.
Pour ce qui est de la partie Compte à rebours, je n'ai pas d'affichage de celui-ci et au bout des 5 minutes, le Edit1.Enabled ne passe pas à false. Est-ce que j'ai raté quelque chose?
Vous n’avez pas trouvé la réponse que vous recherchez ?
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 201012 17 mai 2009 à 12:45
EvenementQuiDeclancheLeCompteARebour
Il ne suffit pas de l'écrire dans le code, il faut l'inclure dans l'inspecteur d'objets ou en faire un appel à partir d'un autre événement..
C'est valable aussi pour le OnKeyPress.
Il faut penser à lire ce que l'on te donne, tenter de le comprendre et penser à l'adapter à ton cas particulier, et non pas faire un copier/coller du code. Un conseil, prends un bon tutorial pour commencer à te familiariser avec la gestion des événements, sinon tu n'iras pas très loin en Delphi.