TTreeView Drag and Drop

[Detlef Winkel]

Hallo liebe Delphiprofis,
mein Problem ist folgendes. ich lese eine Reihe von Strings in ein TTreeView ein und möchte mit Drag und Drop einezelne Strings(Nodes) anderen Nodes als Child zuordnen. OK das klappt auch.
Wenn ich jetzt ein Node mit Drag und Drop verschiebe, möchte ich natürlich auch die dazugehörigen Subitems mit verschieben (AdChild und hinterher Delete) .....und wie bekomme ich die SubItems mit?
hab viel gelesen, aber komme nicht auf die Childs oder SubItems.
Irgend jemand ne Idee?

Detlef

[Bernd Schulz]

Hi!<br>
Ich glaube das sollte es tun:<br>
<br>
procedure CopyNodes (<br>
QuellKnoten, ZielKnoten : TTreenode;<br>
TView : Ttreeview );<br>
var<br>
AltKnoten, NeuKnoten : ttreenode;<br>
begin<br>
AltKnoten := QuellKnoten.GetFirstChild;<br>
while AltKnoten <> nil do begin<br>
if AltKnoten = nil then exit;<br>
NeuKnoten := TView.items.addchild ( ZielKnoten, AltKnoten.text );<br>
NeuKnoten.assign ( AltKnoten );<br>
CopyNodes ( AltKnoten, NeuKnoten, TView );<br>
AltKnoten.delete;<br>
AltKnoten := QuellKnoten.GetFirstChild;<br>
end;<br>
end;<br>

Den Quell und ZielKnoten hast Du ja aus dem DragAndDropEvent<br>
BYE BERND<br>
Tolle Formatierung! Wie macht man ein TAB in HTML?<br&gt

[Detlef Winkel]

Hallo Bernd,
vielen Dank für die Hilfe.

Der Tag lautet: blockquote

Detle