Discussion :

[Ardely]

Bonsoir,
Y'a t-il une possibilité de savoir si la checkbox d'un Listview est coché ou pas
au momant du clique.
Mon probleme est que si je fait ceci sa fonctionne

Code :

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

1
2
3
4
5
6
7
8
 
   VL_ItemIndex := ToFrame1.ListViewJob1.ItemIndex;
   // ou
   //  VL_ItemIndex := ToFrame1.ListViewJob1.Selected.Index;
     if  (ToFrame1.ListViewJob1.items[VL_ItemIndex].Checked) then
     begin
        showmessage('Hallo checkbox')
     end;

mais ceci fonctionne seulement si la ligne est selectionné c'est à dire si il y a un Focused sur la ligne.
Y'a t-il une possibilité de savoir si la box est checked sans selectionné toute la ligne.

Merci pour l'aide.
Salutations
Ardely

[Cl@udius]

Ben et la fonction Rechercher ! Un, un !!!

http://www.developpez.net/forums/sho...d.php?t=260594

@+ Claudius

[Ardely]

Oui c'est juste, mais dans cette example il faut faire une boucle sur tout la
Listview à chaque fois si on clique sur la case...
Est-ce le bon raisonement de la faire! Car si j'ai un grand nombre de ligne sa peut duré un certain temps...

[Cl@udius]

Re,

Comme ceci alors:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  ShowMessage(BoolToStr(Item.Checked, True));
end;

@+ Claudius

[Ardely]

Selon ton code j'ai fait ceci

Code :

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

1
2
 
 if  Item.Checked = true then

qui fonctionne dans la direction que je cherche.
Mais j'ai encore un petit probleme comme savoir quelle no ligne que j'ai coché?


Pour que cette comande fonctionne

Code :

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

1
2
 
.ListView1.ItemIndex

il faut cliquer toute la ligne.
Dans mon cas je ne clique pas la ligne, c'est seulement la case qui est coché...
Merci

[Cl@udius]

Re,

Essaye ceci:

Code :

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

1
2
3
4
5
6
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  ShowMessage('Item n°:' + IntToStr(Item.Index) +  '; Checked = ' +
                      BoolToStr(Item.Checked, True));
end;

@+