Discussion :

[slowpoke]

Bonjour,

j'ai deux composants de type ListBox (un FileListBox et un ListBox).
La ListBox accepte les éléments (un par un) venant de la FileListBox, comme décrit dans la plupart des tutoriels ( Par Exemple: http://delphipage.free.fr/glissdepl.html ).

Ce que je voudrais faire, c'est pouvoir glisser plusieurs éléments de la FileListBox (MultiSelect := TRUE) vers la ListBox en une seule fois!

Quelqu'un sait-il comment faire?

Merci d'avance

Slowpoke

[rbag]

tu dois mettre ce code dans le dragDrop de ton listbox (pas testé, de tête)

Code :

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

1
2
3
  for i := 0 to FileListBox.Items.Count - 1 do
    if FileListBox.Selected[i] then
      ListBox.Items.Add(FileListBox.Items[i]);

[Clorish]

Je viens de tester ce code qui marche ... meme si peut etre un peu bourrin

Evenement OnDragOver de l'objet recepteur :

Code :

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

1
2
3
4
5
6
7
8
 
Accept := True;
for i := 0 to TListBox(Source).Items.Count - 1 do
  if TListBox(Source).Selected[i] then
  Begin
      TListBox(Sender).Items.Add(TListBox(Source).Items[i]);
      TListBox(Source).Selected[i] := False;
  End;

Il faut caster la source et la destination (sender) par TListBox pour prendre en compte tous types de Liste (TFileListBox et/ou TListBox)

ce code est generique : Il marche pour un glisser deplacer de tous les composants liste presents sur la form dan le ou les composants qui pointent leur evenement OnDragOver sur cette methode ^^

PS : MErci de m'avoir fait decouvrir le Drag and drop ;pp je connaissais pas .. alors soyez indulgeant si c pas tip top ^^

[slowpoke]

Merci beaucoup ça fonctionne très bien!!

@+

Slowpoke