Drag&Drop in Listbox

[extrem]

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.