[NumLock]

Сообщение от sariman

я не знаю как реализовать Drag&Drop нескольких элементов.

точно так же как и одного...

Код:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then ListBox1.BeginDrag(True);
end;

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source=ListBox1 then ShowMessage(IntToStr(TListBox(Source).SelCount));
end;

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