TTreeView DragDrob ???

[Bernd29bln]

Hallo,

also genau das selbe ist es nicht aber ich hab die lösung für alle die es interessiert.

Delphi-Quellcode:

var 
Form1: TForm1; 
TargetNode: TTreeNode; 

implementation 

{$R *.DFM} 

{Node(s) auslesen} 
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.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; 
State: TDragState; var Accept: Boolean); 
begin 
if (Sender = treeview1) then //Von TreeView1 
Accept := True; //Drag&Drop erlauben/aktivieren 
end; 

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer); 
begin 
with listbox1 do 
begin 
if (TargetNode = nil) then 
begin 
EndDrag(False); 
Exit; 
end; 
items.text:=items.text+GetNodeText(TargetNode); //Eintrag/Einträge in ListBox hinzufügen 
//TargetNode.Delete; //Eintrag aus TreeView löschen 
end; 
end; 

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

Gruss Bernd