Listbox Einträge verschieben

[bitsetter]

Hi,

also Winamp habe ich jetzt nicht installiert, aber ich schätze mal du meintest sowas hier:

Delphi-Quellcode:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 if source is TListbox then
 begin
   accept:= true;
   ListBox1.Items.Move(ListBox1.ItemIndex,ListBox1.ItemAtPos(point(x,y),true));
   ListBox1.ItemIndex:= ListBox1.ItemAtPos(point(x,y),true);
 end
 else
    accept:= false;
end;