Faire fonctionner bouton ss appuyer [Résolu]

didi59650 77 Messages postés mercredi 5 avril 2006Date d'inscription 9 mai 2006 Dernière intervention - 11 avril 2006 à 10:37 - Dernière réponse : didi59650 77 Messages postés mercredi 5 avril 2006Date d'inscription 9 mai 2006 Dernière intervention
- 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

Cirec 4221 Messages postés vendredi 23 juillet 2004Date d'inscription 11 mai 2018 Dernière intervention - 11 avril 2006 à 11:14
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Cirec
didi59650 77 Messages postés mercredi 5 avril 2006Date d'inscription 9 mai 2006 Dernière intervention - 11 avril 2006 à 10:49
0
Utile
en fait je voudrais que lbouton s'actionne deux fois en appuyant une seule fois
Commenter la réponse de didi59650
didi59650 77 Messages postés mercredi 5 avril 2006Date d'inscription 9 mai 2006 Dernière intervention - 11 avril 2006 à 13:21
0
Utile
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.