Drag and Drop Shelllistview > Listview

[Kidix]

Hallo,


ich versuche so ein Drag and Drop von einer ShellListview zu einer Listview hinzubekommen, leider klappt das nicht, kann mir wer sagen wieso?

Delphi-Quellcode:

procedure TForm1.ListView2DragDrop(Sender, Source: TObject; X, Y: Integer);
var item:TListitem;  
    i: integer;
begin 
  for i:=0 to TListView(Source).items.count-1 do
    begin
      if TListView(Source).items[i].Selected then
        begin
          item:=TShellListView(sender).Items.Add;
          item.Assign(TListView(Source).items[i]);  
        end; 
    end; 
end;

Alle Sachen werden übertragen, nur die Erste Spalte nicht, in dem Fall der Name der Datei, aber wieso?

Kidix