didi59650
Messages postés77Date d'inscriptionmercredi 5 avril 2006StatutMembreDernière intervention 9 mai 2006
-
11 avril 2006 à 10:37
didi59650
Messages postés77Date d'inscriptionmercredi 5 avril 2006StatutMembreDernière intervention 9 mai 2006
-
11 avril 2006 à 13:21
comment refaire fonctionner un bouton sans appuyer dessus une nouvelle fois?
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 11 avril 2006 à 11:14
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;