Discussion :

[CleeM]

Bonsoir,

Je voulais savoir s'il était possible d'utiliser une sorte d'event OnClick sur les différents Items de ma ComboBox. Je m'explique :

J'ai trois items dans ma ComboBox : Gestion du Personnel, Gestion des Absences et Quitter.

J'aimerais que lorsque l'utilisateur clique sur Gestion du Personnel, plusieurs objets s'affichent à l'écran (.Visible) et de même pour Gestion des Absences, et que la fenêtre se ferme pour l'Item Quitter.

Mais voilà je ne trouve pas d'event lié aux Items eux-mêmes mais que des events liés à la ComboBox.

Je suis pratiquement sur que ce que je veux faire est possible, mais je ne trouve pas comment. J'ai tester un peu via du code :

Code :

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

1
2
3
4
5
6
 
If ComboBox1.Items = 'Gestion du Personnel' then
Begin
Label1.Visible := TRUE;
...etc
End;

Mais : Incompatibles types : String and TStrings.
Et puis même je ne pense pas que ce soit la bonne méthode.

Merci d'avance pour vos futures réponses.

[J-P-B]

C'est dans le OnChange de la ComboBox que tu dois tester le ItemIndex

par exemple :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case ComboBox1.ItemIndex of
    0: // premier élément
    1: // deuxième
    2: // troisième
  end;
end;

Bonne soirée

[evarisnea]

+1 @ J-P-B

ça marche aussi avec l'évent OnClick du combo non ?

[Clorish]

Ou recuperer le text du combobox .... histoire d'etre sur de ton coup (on sait jamais, un appel a sort et hop tout est planté )

Code :

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

1
2
3
4
5
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if self.Combobox1.text = '...' then ...
end;

[J-P-B]

Ou recuperer le text du combobox .... histoire d'etre sur de ton coup (on sait jamais, un appel a sort et hop tout est planté )

et une modif du libellé et tout est planté ...
on ne me fera pas baser un test de combo sur le libellé ... c'est bien plus risqué qu'un appel hypothétique à un sort (dans ce cas, les items sont remplis à la mano)

JP

[Clorish]

Mouais c'est sur .... d'un autre cote, si tu desire avoir uen liste dynamique triee, tu risque d'avoir des soucis car dans 90% des cas on utilise une liste triée

Surtout que la liste est remplie en general a l'aide de valeurs d'un tableau (nom de composants, prenoms d'eleves, suite de mots saisis, etc ..) dont le choix permet (en general) de retrouver l'element en memoire. donc pour moi le test de la chaine est mieux

Mais il est vrai que dans son cas, ca revient au meme ...

Note : Je me demande si la proprietee items n'est pas liée a une variable data ou object comme c'est le cas des TStringList ...
Dans ce cas le plus simple est d'affecter un tag a cette variable.