Fórum Drag and Drop em dois ListBox #225041

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

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
var aListBox: TListBox;
begin
  aListBox := Source as TListBox;
  (Sender as TListBox).Items.Add(aListBox.Items[aListBox.ItemIndex]);
end;