Discussion :

[Malone]

Bonjour,

voila je bloque sur une la procedure suivante, mon but est de gerer des combobox de type "oui/non", donc si une est coché l'autre doit se decocher automatiquement.
Pour ca j'ai mis des tags qui se suivent, par exemple 1&2 , 3&4 ... 15&16 etc.. et je verifie si le tag du sender est pair ou impair pour trouver quel est son"voisin".
Apres je recupere le combobox a modifier grace a son tag, mais je n'arrive pas a modifier sa propriété "checked"
Je ne vois vraiment pas ou est le pb, merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TFenetreRectoOM.gestion_checkbox(sender:tobject);
var
i,j:integer;
begin
 
  if odd((sender as TCheckBox).Tag)=true then j:=1
      else j:=-1;
 
 
if (sender as TCheckBox).Checked=true then
 
 for i:=0 to FenetreRectoOM.ComponentCount-1 do
  begin
      if FenetreRectoOM.Components[i].Tag=(sender as TCheckBox).Tag+j then
      begin
 
          (FenetreRectoOM.Components[i] as TCheckbox).Checked:=false;
 
      end;
  end;
 
 
end;

[DMO]

Et pourquoi pas TRadioButton ??

[GO]

Que veut dire odd(( ?

je pense que ton initialisation de la variable j est fausse, après tu tombes sur un mauvais composant peut-être même pas un Tcheckbox.

waiting... 8)

[Malone]

le odd() sert a verifier si le tag est pair ou impair, pour trouver son checkbox"voisin".
sinon je suis sur a 100% de tomber sur le bon objet qui est un tcheckbox, vu que je faisais une verif dans la boucle avec un messagedlg du "(fenetreRectoOM.Components[i] as TCheckbox).name" et c'etait bien le checkbox voisin.

[GO]

et si tu mettais le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

+j

de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FenetreRectoOM.Components[i].Tag=(sender as TCheckBox).Tag+j

du coté gauche.

8)

[Rayek]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
for i:=0 to FenetreRectoOM.ComponentCount-1 do
  begin
    if FenetreRectoOM.Components[i] is TCheckBox then
        if (FenetreRectoOM.Components[i] as TCheckBox).Tag = (sender as TCheckBox).Tag+j then
      begin
          (FenetreRectoOM.Components[i] as TCheckbox).Checked:=false;
      end;
  end;

Essaie comme ca

[Malone]

Je tiens a preciser que je n'ai pas de probleme pour recuperer l'objet que je veux modifier, j'ai fait des verifs et je tombe a 100% sur l'objet que je vise, le probleme est que la propriété checked n'est pas modifiée, je n'ai pas d'erreur, il ne se passe rien c'est tout. On dirais qu'en lecture il n'y a pas de probleme mais que je n'arrive pas a ecrire sur les propriétés de cet objet.

[GO]

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TCheckbox(FenetreRectoOM.Components[i]).Checked:=false;

8)

[Rayek]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
for i:=0 to FenetreRectoOM.Controlcount -1 do
  begin
    if FenetreRectoOM.Controls[i] is TCheckBox then
        if (FenetreRectoOM.Controls[i] as TCheckBox).Tag = (sender as TCheckBox).Tag+j then
      begin
          (FenetreRectoOM.Controls[i] as TCheckbox).Checked:=false;
      end;
  end;

Essaie avec Controls au lieu de components

[GO]

attention à ce que tes checkbox ne soient pas sur un panel ou un conteneur de ce genre auquel cas tu devra parcourir les composants contenus avec un second compteur.

si ma mémoire est bonne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tcheckbox(Tpanel(form.component[i]).component[j]).checked:=false

8)

[rsc]

Je tiens a preciser que je n'ai pas de probleme pour recuperer l'objet que je veux modifier, j'ai fait des verifs et je tombe a 100% sur l'objet que je vise, le probleme est que la propriété checked n'est pas modifiée, je n'ai pas d'erreur, il ne se passe rien c'est tout. On dirais qu'en lecture il n'y a pas de probleme mais que je n'arrive pas a ecrire sur les propriétés de cet objet.

Alors, ça n'est pas tout simplement un pb de rafraîchissement, à régler avec Update, Paint ou Invalidate ?

[tourlourou]

pourquoi ne pas les créer ou les recenser dans un tableau afin d'éviter des itérations de ComponentCount ?

[Malone]

bon ben je ne vois vraiment pas d'ou viens le pb, j'ai testé en passant par mon groupbox vu que les items sont dessus mais rien.

[Eric Sigoillot]

Je réinsiste sur ce qu'a dit DMO : pourquoi ne pas se servir des TRadioButton dont c'est la fonction même de se désélectionner les uns les autres... :

On a l'impression que tu cherches à réinventer le roue...

@++

[GO]

ça ne viendrait pas de ton évènement oncheck ou onclick du checkbox qui rend récurrent ton test et décoche à chaque fois ta checkbox malgré que tu clique dessus.

ou bien ton test de componentcount est à revoir pense au conteneur, on parcours tous les composants qu'il contient avec un second compteur.

A+ 8)

[Pedro]

Ou bien, comme le dit rsc plus haut, un problème de refresh... Un Repaint ou un Invalidate devrait peut-être résoudre ce problème...