Parcours d'un multi select dans une filelistbox

Version imprimable

Bonsoir,

je voudrais parcourir tous les éléments que j'ai sélectionnés dans ma filelistbox. Mon problème c'est que Delphi ne prend en compte que le dernier element sur lequel j'ai cliqué quand j'ai sélectionné mes éléments de ma liste.

Voici mon code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 if (FileListBox1.SelCount>1) then begin i := 0; while (i < FileListBox1.Count) do begin if FileListBox1.Selected[i] then begin Button1Click(Sender); Button2Click(Sender); end; inc(i); end; end;
C'est où que j'ai faux?:)
Merci!

28/12/2006, 18h11
Cl@udius

salut,

Je dirais a priori que ton code est correct. :).
As-tu fais un pas-à-pas pour vérifier que le traitement passait bien par tous les éléments sélectionnés ?

Que représente Sender lors de l'appel à ButtonClick ?
28/12/2006, 18h16
tomy29

Citation:

Envoyé par Cl@udius

salut,

Je dirais a priori que ton code est correct. :).
As-tu fais un pas-à-pas pour vérifier que le traitement passait bien par tous les éléments sélectionnés ?

Que représente Sender lors de l'appel à ButtonClick ?

Quand je fais un pas-à-pas il rentre dans le IF uniquement quand il arrive a l'élément sur lequel j'ai cliqué en dernier. C'est comme si, pour lui, il n'y avait que ce dernier élément qui est réellement sélectionné (alors que je jure que j'ai selectionné plusieurs éléments!!)

(Si j'enleve le sender il me plante a la compil, je fais toujours comme ca quand je fais appel à un événement d'une fiche.)
28/12/2006, 18h25
Cl@udius

re,

Que fais-tu dans les ButtonClick ?
Car je viens de faire un test en reprenant ton code et ça marche correctement avec les 3 ou 4 fichiers que je sélectionne. :mrgreen:

Si tu n'utilises pas le Sender dans les ButtonClick tu peux mettre nil à la place de Sender.
28/12/2006, 19h30
tomy29

Citation:

Envoyé par Cl@udius

re,

Que fais-tu dans les ButtonClick ?
Car je viens de faire un test en reprenant ton code et ça marche correctement avec les 3 ou 4 fichiers que je sélectionne. :mrgreen:

Si tu n'utilises pas le Sender dans les ButtonClick tu peux mettre nil à la place de Sender.

ben y a un soucis sur mon delphi alors!!
Le Sender on s'en fiche un peu en fait. Puisque c'est le test du If qui débloque. Mais je vais quand meme essayer le nil demain, meme si je doute que ça ait une influence sur le if qui le précède.
29/12/2006, 09h40
tomy29

Après avoir essayé avec nil en parametre, j'ai toujours le meme probleme. Je n'y comprends rien si pour toi ça a fonctionné.

....

apres verif, quand je recopie ce code dans un autre projet, il fonctionne.
C'est dans ce projet précis qu'il merdouille.

....
et apres derniere verif, il se trouve que dans une des procédure dans mon IF, je fais un update de la filelistbox, donc ca réinitialise la liste.... :? :mrgreen:

Salut

En procédant ainsi j'ai mes noms de fichiers qui s'affichent successivement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  if (FileListBox1.SelCount>1) then
  begin
    i := 0;
    while (i < FileListBox1.Count) do
    begin
      if FileListBox1.Selected[i] then
      begin
          ShowMessage(FileListBox1.Items.Strings[i]);
          //Button1Click(Sender);
          //Button2Click(Sender);
      end;
      inc(i);
    end;
  end;
end;

29/12/2006, 10h04
Cl@udius

Citation:

Envoyé par tomy29

et apres derniere verif, il se trouve que dans une des procédure dans mon IF, je fais un update de la filelistbox, donc ca réinitialise la liste.... :? :mrgreen:

Ah, je me disais aussi ! :D

@+ Claudius