TCheckListBox
cs_MAsterC
Messages postés
217
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
19 décembre 2012
-
5 janv. 2004 à 09:13
yvemoreau Messages postés 308 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 26 septembre 2008 - 5 janv. 2004 à 23:10
yvemoreau Messages postés 308 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 26 septembre 2008 - 5 janv. 2004 à 23:10
1 réponse
yvemoreau
Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008
5 janv. 2004 à 23:10
5 janv. 2004 à 23:10
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
if(CheckListBox1.State[
CheckListBox1.Items.IndexOf(
CheckListBox1.Items.Strings[0])]
=cbChecked)then beep;
end;
bon pour un test ça fonctionne,mais pour trier ,il te faudra utiliser des booleans pour mémoriser les états ,avec ceux par défaut à la création...
et peut-être aussi simplifier si les items ne changent pas alors tu connais leur position...
if(CheckListBox1.State[0]=cbChecked)then ...
if(CheckListBox1.State[1]=cbChecked)then ...
type TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed);
yve
begin
if(CheckListBox1.State[
CheckListBox1.Items.IndexOf(
CheckListBox1.Items.Strings[0])]
=cbChecked)then beep;
end;
bon pour un test ça fonctionne,mais pour trier ,il te faudra utiliser des booleans pour mémoriser les états ,avec ceux par défaut à la création...
et peut-être aussi simplifier si les items ne changent pas alors tu connais leur position...
if(CheckListBox1.State[0]=cbChecked)then ...
if(CheckListBox1.State[1]=cbChecked)then ...
type TCheckBoxState = (cbUnchecked, cbChecked, cbGrayed);
yve
