Utillisation groupe de contrôles TCheckBox

Bonsoir

Je dispose sur une feuille de quelques dizaines de checkbox dont la validation ou la "devalidation" génére ou efface une expression dans un RichEdit.
Ce qui me donne pour chaque CheckBox :

Code:

---

1 2 3 4 5 6

procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked=true then AjouteLigneNoire('mon expression1', OMC_REdit) else EffacerLigne('mon expression1',OMC_REdit); end;

---

(AjouteLigneNoire et EffacerLigne etant 2 procedures annexes)

Cela me fait quelques centaines de lignes de codes pour pas grand chose me semble t il. Avec un peu de reflexion (ca peut servir :) ) je pense aux tableaux , je trouve cela plus élégant, tout content je passe donc à :

Code:

---

1 2 3

Expression : array [1..95] of String; OMC_Check : : array [1..95] of TCheckbox;

---

Dans la procedure OnCreate j'affecte mes valeurs dans les tableaux :

Code:

---

1 2 3 4 5 6 7

Expression[1] := 'mon expression1'; .... Expression[95] := 'mon expression95'; OMC_Check[1] := CheckBox1; .... OMC_check[95] := CheckBox95;

---

je commence donc

Code:

---

1 2 3 4 5 6

Procedure Tform1.OMC_Click(i : integer ? ) begin if OMC_Check[i].Checked=true then AjouteLigneNoire(Expression[i], OMC_REdit) else EffacerLigne(Expression[i],OMC_REdit); end;

---

et la j'ai un grand moment de solitude comment passer l'indice a ma procedure si j'affecte cette procedure a l'evenement Onclick de chaque CheckBox.
le seul moyen auquel je pense serai de faire pour chaque checkbox :

Code:

---

1 2 3 4 5

procedure TForm1.CheckBox1Click(Sender: TObject); begin OMC_Click(1); end;

---

soit a nouveau 95 procedures donc mon idée de tableau partirai a la pubelle.

Quelqu'un aurait une idée, une piste pour m'aider a poursuivre dans cette voie ?
Par avance merci
Cordialement

slt

et si chaque checkbox avait un Tag egal a ton indice ?

je rejoins sergio pour l'utilisation des Tag comme vôtre soucie est de réduire le nombre de lignes je te propose d'affecté une seule procédure onclick pour tous tes checkBox

Code:

---

1 2 3 4

procedure TForm1.CheckBox1Click(Sender: TObject); begin OMC_Click((Sender as TCheckBox).Tag); end;

---

@+ aityahia

Oui la meilleur solution est d'aller dans l'ongler Evenement de l'inspecteur d'objet, cliquer sur l'evenement "OnClick" et ensuite nomer "a la main" un nom de procedure (CheckBoxClick par exemple). Une fois le nom saisi, un doubleclick permet de renomer/creer le gestionaire d'evenement associé a ce composant.

Ensuite, en utilisant la combobox de l'inspecteur de proprietees, on peux choisir pour tous les autres composant le meme gestionnaire. (Une selection multiple accelere les choses).

Uen fois tous les composant associés au meme gestionnaire, la personalisation se fait en utilisant le parametre sender :

Code:

---

If Sender = Self.MonCheckBox1 Then TCheckBox(Sender).XXX

---

Citation:

---

Envoyé par Clorish

[CODE]If Sender = Self.MonCheckBox1

---

clorish je ne vous suis pas très bien la.

Sender est une variable de type TObject qui pointe vers l'objet qui a declangé le gestionaire. Justement pour les cas qui nous interesse, savoit "QUI" a declenché le gestionnaire en cas d'association multiples.

Sender etant une adresse, on peut donc la comparer avec tout autres adresses.
Sender = UnComposantCheckBox signifie que les 2 variable pointent bien vers le meme objet : Celui qui a declanché l'evenement.
Donc pas besoin de TAG pour differencier les objets qui appellent ce gestionnaire.

Sender etant defini comme TObject, il ne nous permet d'acceder qu'aux methodes de TObject contenu dans notre objet CheckBox. Donc pour acceder aux autres, il faut le caster : TCheckBox(Sender).UneMethodeDeCheckBox.

Pour etre plus propre il faudrais s'assurer de l'heritage par un test "If Sender.InheritsFrom(TCheckBox)" avant tout cast .. mais notre test nous assurant que l'objet pointe par Sender est bien identique a l'objet que l'on attends (MonCheckBox1 dans mon exemple) on s'assure par la meme que c'est un TCheckBox (MonCheckBox1 a ete defini comme TCheckBox ....) on peut donc se passer du test "inheritsFrom".

Voila :D

je suis entièrement d'accord avec vous mais notre amis doit impérativement récupérer un indice pour récupérer la valeur "mon expression" dans un tableau c'est pour sa qu'on a opté pour le Tag.

En effet j'ai oublié cette fonctionnalitée.
D'un autre cote j'utiliserais une autre solution :

Gestion dynamique des TCheckBox.
Parce que 95 checkbox a coder, assigner a la main .. faut le vouloir :D

En fait une fois le tabelau remplit, je le transmettrais a une methode qui le parcours, creer et parametre dynamiquement les checkbox.

LE tag peut en effet etre interessant pour un acces direct au tabelau des expressions avec une gestion dynamque, mais tres aleatoire dans le cadre d'une gestion statique.
Je lui prefere de loin la methode "Je parcours le tableau des CheckBox pour retrouver mon composant et en recuperer ainsi l'ID".
De nos jours, on est plus a une boucle de 100 voir meme 1000 iterations pres ....

Bonjour

Pour commencer merci a vous, j'assimile les infos et je tente les mises en pratique. Je vous tiens au courant.
Cordialement

Re bonsoir

Ca "tourne" :) merci.

Dans la procedure OnCreate je rajoute :

Code:

---

1 2 3

...... For i := 1 To 95 Do OMC_Check[i].Tag := i ;

---

puis j'affecte la meme procedure au 95 evenements "OnClick" des CheckBox

Code:

---

1 2 3 4 5 6

procedure TForm1.OMC_CheckClick(sender : TObject); begin if OMC_Check[TCheckBox(sender).tag].Checked=true then AjouteLigneNoire(Expression[TCheckBox(sender).tag], OMC_REdit) else EffacerLigne(Expression[TCheckBox(sender).tag],OMC_REdit); end;

---

Je vais regarder maintenant pour creer dynamiquement mes CheckBox plutot que les 95 declarations.
Je marque resolu encore merci.
Cordialement