ListBox Drag&Drop Multiple

Réponse acceptée !

Joyeuses fêtes à toutes et tous, too!

Voilà un bout de code pour te montrer la façon de procéder.
Je n'ai pas le temps de l'optimiser ni de commenter. Désolé.

var   ListeItems: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
  begin
  ListBox1.MultiSelect       := true;
  ListBox1.ExtendedSelect := true;
  ListeItems := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
  begin
  ListeItems.Free;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
  var   i : Integer;
  begin
  (Sender as TControl).begindrag(false,3);
  ListeItems.Clear;
  for i := 0 to ListBox1.Count - 1 do
    if ListBox1.Selected[i] then ListeItems.Add(IntToStr(i));
end;

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
  begin
  Accept := true;
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
  var   i : Integer;
  begin
  for i := 0 to ListeItems.Count - 1 do
      ListBox2.Items.Add(ListBox1.Items[StrToInt(ListeItems[i])]);
  for i := ListeItems.Count - 1 downto 0 do
      ListBox1.Items.Delete(StrToInt(ListeItems[i]));
end;


On peut faire un Drag'n Drop des éléments sélectionnés de ListBox1 vers ListBox2.
A toi d'arranger ça à ta sauce   ;)

@+

Réponse acceptée !
Salut à tous,

Il n'est pas obligatoire de passer par un TStrings.
Dans l'exemple qui suit, on peut indifféremment glisser-déposer depuis ListBox1 vers ListBox2 et vice-versa.
Pour celà, ListBox2 est reliée à ListBox1 par l'inspecteur d'objets pour les 2 events qui suivent :

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TListBox;
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  i: Integer;
begin
  // ordre inversé
  {
  for i := TListBox(Source).Items.Count - 1 downto 0 do
  begin
    if TListBox(Source).Selected[i] then
    begin
      TListBox(Sender).Items.Add(TListBox(Source).Items[i]);
      TListBox(Source).Items.Delete(i);
    end;
  end;
  }
  // ou si on veut respecter l'ordre des items :
  for i := 0 to TListBox(Source).Items.Count - 1 do
    if TListBox(Source).Selected[i] then
      TListBox(Sender).Items.Add(TListBox(Source).Items[i]);
  for i := TListBox(Source).Items.Count - 1 downto 0 do
    if TListBox(Source).Selected[i] then
      TListBox(Source).Items.Delete(i);
end;

Bonnes fêtes de fin d'année.