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

[padavan]

Delphi-Quellcode:

procedure ShellListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then ShellListview1.BeginDrag(false);
end;

Delphi-Quellcode:

procedure Listview1DragOver(Sender,
  Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if source is tShellTreeView then accept := true;
end;

Delphi-Quellcode:

procedure Listview1DragDrop(Sender,
  Source: TObject; X, Y: Integer);
begin
  if source is tShellTreeView then begin
//tu was......
  end;
end;