Hi
Was funst nicht?
Hast du auch das onDragOver Ereignis angepasst?
Delphi-Quellcode:
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TListbox;
end;
Falls du nicht mit Listbox1.BeginDrag() arbeitest, dann musst du noch DragMode auf mAutomatic stellen.
Dann sollte der Code eigentlich funktionieren, habe es ausprobiert.