Listbox Einträge verschieben

[Thomasl]

Ich habe den Code von bitsetter noch ein wenig abgeändert damit er mit allen listboxen geht
jetzt fehlt nur noch multiselect

Delphi-Quellcode:

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

if (Sender = Source) and (Sender is TListbox) and ((Source as Tlistbox).ItemIndex <> -1) then
 begin
   with Sender as TListbox do
    begin
      if ItemAtPos(point(x,y),true)= -1 then exit;
      Items.Move(ItemIndex,ItemAtPos(point(x,y),true));
      ItemIndex:= ItemAtPos(point(x,y),true);
    end;
  Accept:= true
 end
else Accept:= false;

end;