[sariman]

Здравствуйте! Столкнулся с такой проблемой, перемещение нескольких элементов в ListBox именно пкм, так как выделение у меня происходит левой, а перемещение хотелось бы правой, причем на лету - т.е. не только после того как я отпустил клавишу мышки, перемещать, а именно при зажатии. В интернете полно примеров, но они не подходят по вышеперечисленному, листбокс - это у меня плэйлист в плеере. Заранее спасибо!

[NumLock]

в событии OnMouseDown:

Код:

begin
  if Button=mbRight then
  begin
    // do it
  end;
end;

[sariman]

Хаха, юморист вы)) Повторяюсь: я не знаю как реализовать Drag&Drop нескольких элементов.

[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;

[sariman]

Элементы не перемещаются

[NumLock]

http://zalil.ru/33934484
левой мышкой выделяй, правой перетаскивай. с Apple Magic Mouse не проверял...