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;