Discussion :

[LaQude]

Bonjour, le titre étant un peut évasif je m'explique sur mon problème. Je suis en pleine création d'une interface et je doit associer les Hints de ma Combobox à plusieurs checkbox, c'est Hint corresponde à: "Box" et "serveur". (Si le Hint box est sélectionner alors certaine Checkbox ce coche automatiquement)

Je suis partis sur le fait qu'il faut utiliser les ItemIndex (Cela fait un jour que je suis sur Delphi 7 donc ne m'en voulais pas trop si cela parait "Logique" )
mais je ne vois pas comment associer mes checkbox au ItemIndex.

Merci d'avoir au moins pris le temps de lire et pour ceux qui s'arrêterons pour répondre. En attendant je vais continué à chercher !

bonne journée

[Rayek]

Dans le onChange de ta combobox

Code :

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

1
2
3
 
  Chk_Serveur.Checked := (Combobox.ItemIndex = 0);
  Chk_Box.Checked :=  (Combobox.ItemIndex = 1);

à adapter selon le positonnement de serveur et box dans la combobox en sachant que les combobox démarre l'index à 0

[LaQude]

C'est à dire dans le OnChange? J'ai une liste qui s'affiche (Bouton, checkBo,..). Je peut y sélectionner plusieurs choses? Car j'ai plusieurs, une dizaine, de checkbox à associés sur "Box" et "serveur".

En me relisant (Et en voyant votre code) je pense que je me suis mal exprimer !

Box et Serveur sont les choix de la ComboBox. Mais si j'ai bien compris j'associe mes Checkbox de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 procedure TForm1.CbPreSelecChange(Sender: TObject);
begin
 
CbKodakDrivers.Checked := (CbPreSelec.ItemIndex =0);
CbMicrosoftDeps.checked := (CbPreSelec.ItemIndex =0);
 
   if  (CbPreSelec.ItemIndex =0)  then begin
    CbKodakDrivers.Checked := True;
    CbMicrosoftDeps.checked := True;
   end;  
end;

Le 0 correspond à la Box.

Edit: J'ai essayé votre syntaxe, voir ci-dessus, mais rien. Est-ce bien cette syntaxe (La mienne) ?

[cantador]

Code :

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

1
2
3
4
5
6
 
procedure TForm1.CbPreSelecChange(Sender: TObject);
begin
CbKodakDrivers.Checked := (CbPreSelec.ItemIndex =0);
CbMicrosoftDeps.checked := (CbPreSelec.ItemIndex =0);
end;

[LaQude]

J'ai finis par trouver de moi même Merci quand même contador ! En fait je pensé que Rayek parlais du Onchange dans le "Object Inspector"

Et à Rayek =)

Bonne journée à vous !