Faire fonctionner bouton ss appuyer [Résolu]

Messages postés
77
Date d'inscription
mercredi 5 avril 2006
Dernière intervention
9 mai 2006
- - Dernière réponse : didi59650
Messages postés
77
Date d'inscription
mercredi 5 avril 2006
Dernière intervention
9 mai 2006
- 11 avril 2006 à 13:21
comment refaire fonctionner un bouton sans appuyer dessus une nouvelle fois?
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
3
Merci
Salut,
si tu veux que le code s'exécute deux fois tu peux mettre le code en question dans une boucle:

Procedure TForm1.Button1Click(Sender : TObject);
Var I : Integer;
Begin
For I := 1 To 2 Do
Begin
// Ici le code qui doit être répété
End;
End;

Tu peux aussi mettre le code à répéter dans une procedure et l'appeler deux fois dans le OnClick du Bouton.

Procedure TForm1.MonCode(Sender : TObject);
Begin
// Ici le code qui doit être répété
End;

Procedure TForm1.Button1Click(Sender : TObject);
Begin
MonCode;
MonCode;
End;

Sinon pour cliquer par code sur un bouton :

Button1.Click;

Mais dans ton cas tu ne peux pas utiliser cette méthode parce que le prog partira en boucle infinie :
Exemple à ne pas faire
Procedure TForm1.Button1Click(Sender : TObject);
Begin
Button1.Click; // le prog continura à cliquer indéfiniment
End;

@+
Cirec

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

Commenter la réponse de Cirec
Messages postés
77
Date d'inscription
mercredi 5 avril 2006
Dernière intervention
9 mai 2006
0
Merci
en fait je voudrais que lbouton s'actionne deux fois en appuyant une seule fois
Commenter la réponse de didi59650
Messages postés
77
Date d'inscription
mercredi 5 avril 2006
Dernière intervention
9 mai 2006
0
Merci
merci
Commenter la réponse de didi59650

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.