Drag&Drop in 2 TListbox'en :-)

[SeeAAL]

oki habs schon

hach und dafür die ganze aufregung

und für alle die es auch suchen ->

Code:

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

procedure TForm1.ListBox2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source = ListBox1 then
    begin
      ListBox2.Items.Add(ListBox1.Items[ListBox1.ItemIndex]);
      ListBox1.Items.Delete(listbox1.itemindex);
    end;
end;