Désactive une ligne ComboBox
Résolu
ataeallah
Messages postés
37
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
17 juin 2010
-
14 juin 2005 à 13:53
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 14 juin 2005 à 17:06
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 14 juin 2005 à 17:06
A voir également:
- Désactive une ligne ComboBox
- Créer un qcm en ligne - Forum PHP
- Chifoumi en ligne - Forum VB.NET
- Essayage en ligne ✓ - Forum PHP
- Roulette hasard en ligne - Forum Visual Basic 6
- Saut de ligne \n - Forum PHP
1 réponse
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
14 juin 2005 à 17:06
14 juin 2005 à 17:06
Salut,
Ouais, sans passer par la création d'un composant dérivant de TCustomComboBox, ça paraît difficile.
Je viens néanmoins de trouver cette solution, si ça peut dépanner :
const
DisabledItem: Integer = 1; // 2ème item désactivé
var
OldIndex: Integer;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex = DisabledItem then
ComboBox1.ItemIndex := OldIndex
else
OldIndex := ComboBox1.ItemIndex;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.ItemIndex := 0;
OldIndex := ComboBox1.ItemIndex;
end;
Ainsi, l'utilisateur ne pourra pas sélectionner cet Item, ce qui semble être le but recherché ?
Bonne prog'
japee
Ouais, sans passer par la création d'un composant dérivant de TCustomComboBox, ça paraît difficile.
Je viens néanmoins de trouver cette solution, si ça peut dépanner :
const
DisabledItem: Integer = 1; // 2ème item désactivé
var
OldIndex: Integer;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if ComboBox1.ItemIndex = DisabledItem then
ComboBox1.ItemIndex := OldIndex
else
OldIndex := ComboBox1.ItemIndex;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.ItemIndex := 0;
OldIndex := ComboBox1.ItemIndex;
end;
Ainsi, l'utilisateur ne pourra pas sélectionner cet Item, ce qui semble être le but recherché ?
Bonne prog'
japee