Treeview Dragdrop Listview Problem :-(

[Bernd29bln]

Hallo,

Folgendes Problem:

Delphi-Quellcode:

Function GetNodeText(Node: TTreeNode): String;
var I: Integer;
begin
if Node.Count>0 then //Untereintrag vorhanden
begin
Result:=Node.Text+#13#10; //Node hinzufügen

For I:=0 to Node.Count-1 do //Untereinträge auslesen
Result:=Result+Node[i].text+#13#10; //Untereinträge hinzufügen
end
else //Nur Node vorhanden
Result:=Node.Text; //Node hinzufügen
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if (Sender = Playview) then //Von TreeView1
Accept := True; //Drag&Drop erlauben/aktivieren
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with listview1 do
 begin
  if (TargetNode = nil) then
   begin
    EndDrag(False);
    Exit;
 end;
caption := GetNodeText(TargetNode); //Eintrag/Einträge in ListView hinzufügen

end;

end;

procedure TForm1.TreeViewMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 TargetNode:= TreeView.GetNodeAt(X,Y); //Node ermitteln per X,Y Koordinaten

end;

Problem in Listview wird nichts eingefügt.

Gruss Bernd