ListView Drag&Drop Items hinzufügen

[Bummi]

Ich bin nicht sicher ob ich Dich richtig verstanden habe, meinst Du so etwas?

Delphi-Quellcode:

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   if Button=mbLeft then TEdit(Sender).BeginDrag(false);

end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TListView(Sender).Items.Add.Caption := TEdit(Source).Text;
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
   Accept := Source is TEdit;
end;