dragdrop из listview

[niockasd]

добрый день, негде не могу найти мануалов как реализовать перетаскивание (значения из 2 столбца выбранной строки) из listview в Listbox который находится на этой же форме..

Пока понял что в listview1 нужно установить свойство dragmode в dmAutomatic

а у Listbox пописать

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

(разрешение на прием из listview)

[Iron Monk]

procedure TFileTransferForm.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    ListBox1.Items.Add(ListView1.Selected.Caption);
   // ListView1.DeleteSelected;
end;

[niockasd]

да я так пытался судьбу наколоть) но на перемещение нет абсолютно не какой реакции

[Аватар]

Цепляй за строку в 1-ой колонке

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

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source=ListView1 then begin
     ListBox1.Items.Add(ListView1.Selected.SubItems.Strings[0]);
  //здесь если надо удаляй
  end;
end;