Boucle sur les composants
Soyez le premier à donner votre avis sur cette source.
Vue 5 937 fois - Téléchargée 437 fois
Description
Bonjour,
J'ai fait cette source pour répondre à un pote qui est un peu plus débutant que moi en Delphi (la source est en Delphi7).
Le problème était : J'ai 25 checkbox. Je voudrais vérifier chacune d'entre elles dans une boucle. Si je rajoute ou j'enlève des checkbox sur la feuille, je ne dois pas modifier mon code en conséquence.
Voila qui est fait. A bientôt.
St@iLeR
J'ai fait cette source pour répondre à un pote qui est un peu plus débutant que moi en Delphi (la source est en Delphi7).
Le problème était : J'ai 25 checkbox. Je voudrais vérifier chacune d'entre elles dans une boucle. Si je rajoute ou j'enlève des checkbox sur la feuille, je ne dois pas modifier mon code en conséquence.
Voila qui est fait. A bientôt.
St@iLeR
Codes Sources
A voir également
- Boucle sur les composants
- Boucle for sur un composant possible ? ✓ - Forum - Visual Basic 6
- Numéro d'un composant dans une boucle ✓ - Forum - Delphi / Pascal
- Contrôle de composants par une boucle ✓ - Forum - Delphi / Pascal
- Sql boucle foreach - Forum - SQL
- Html texte défilant en boucle ✓ - Forum - Javascript / DHTML
18 août 2007 à 00:41
- Messages postés
-
4297
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 9 janvier 2013
3115 mars 2003 à 21:36
Suggestion : utilises plutôt un TControl qu'un TObjet.
Mais tu as raison, chacun son style ou ses préférences. L'essentiel est de bien comprendre ce que l'on fait.
- Messages postés
-
507
- Date d'inscription
- jeudi 28 mars 2002
- Statut
- Membre
- Dernière intervention
- 13 mai 2009
115 mars 2003 à 14:37
MonObjet : TObject
Aprés c'est une question de préférence et de réutilisation.
- Messages postés
-
4297
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 9 janvier 2013
3115 mars 2003 à 14:16
Alors qu'il suffit de faire :
for i := 0 to ComponentCount -1 do
if Components[i] is TCheckBox then
with Component[i] as TCheckBox do
if Checked then
memo1.Lines.Add('La ' + Components[i].Name + ' est cochée')
else
memo1.Lines.Add('La ' + Components[i].Name + ' est décochée');
Pour éviter toute confusion, surtout si ton pote débute : rappelons que Sender est en fait un pointeur (caché, merci Delphi) sur l'objet qui a déclenché l'évènement.
Alors, si tu changes sa destination en cours de route, ça devient confusionnel...
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.