Discussion :

[JediKerian]

J'ai honte, mais chui pas sur de tout comprendre...

J'explique, j'ai dans une frame 2 GroupBox imbriquées, admettons que la plus grande s'appelle GBPLUS_GRANDE et la petite ...... GBPLUS_PETITE.

J'ai des checkBox dans la petite (4 au total), et dans l'autre j'ai des Tedits. (4 aussi)

Bon le but est de Rendre la propriete enabled a false du Tedit correspondant a sa checkbox.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
   for i := 0 to 3 do
    if GBPETITE.controls[i].[u]checked[/u]=true then  
        case i of
          0: MessageScheduler:= MessageScheduler + TBHeure.Text;
          1: MessageScheduler:= MessageScheduler + TBJour.Text;
          2: MessageScheduler:= MessageScheduler + TBSemaine.text;
          3:MessageScheduler:= MessageScheduler + TBMois.text;
         end;//case
    end;/if
  END; //if

le checked ne passe pas, il n'arrive pas a voir que le controls[i] est une checkbox et donc je n'est pas acces aux proprietées de la checkbox.

Avant je n'avais qu'un Group box et je rajoutais la ligne suivante pour detecter si ct une checkbox ou pas

Code :

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

 if controls[i].inheritsFrom(Tcheckbox) then

et le case c simplement pour le meme probleme d'acces aux proprietes des Tedits (comme y'en a 4 ben g fait un select case sur les 4)...

Je doit vraiment etre con, paskeuh je comprends pas comment on accede aux enfants d'un Groupe de controls ou d'autres composant de ce type..

[gord's]

Le plus simple, c'est d'utiliser la propriété tag des checkBox.

au formCreate:

Code :

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

 ChekBox1.tag := integer(leTeditAssocie);

puis tu affecte la meme procedure au onChange des checkBox :

Code :

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

1
2
3
4
5
6
7
8
 
Procedure ckbOnChange(Sender:TObject);
var
    ckb: TCheckBox;
begin
    ckb := TChekBox(Sender);
    TEdit(ckb.tag).enabled := ckb.Checked;
end;

[JediKerian]

Je n'avais pas encore chercher a kouah pouvais servir les tags !!!!


Qd tu veux !!

[gord's]

les tags ça sert à tout ! Quand t'as pris le truc, tu peux plus t'en passer
un peu comme la propriété objects des grid


je suis toujours preneur d'un canon, même virtuel ça fait plaisir