TreeView Drag&Drop wahlweise als Kind einfügen

[Dejan Vu]

Imitiere doch das Verhalten des Explorers, d.h. Du rufst von dem Knoten der als Vater-kandidat fürs droppen in Frage kommt (GetHitTestInfoAt) dann einfach 'Expand' auf. Und wenn der noch keine Kinder hat, dann fügst Du an dem Knoten, nach einer kurzen Wartezeit einen Dummyeintrag ein und rufst Dann Expand auf. Der Dummyeintrag sieht so aus wie das, was Du da droppen willst... Wenn der Cursor dann weiter bewegt wird, schmeisst Du den Dummyeintrag wieder raus. und rufst für den Knoten, denn Du im Rahmen der Drag-Operation ein Expand aufrufen musstest, eben wieder collapse auf. Das ist zwar Wurschtelkram mit listen ('expanded', 'dummyEntries'), die man pflegen muss, aber es sollte funktionieren. Kann höchstens sein, das das schrottig aussieht.

[Aviator]

Oder einfach den VirtualTreeView benutzen. Der bringt schon sehr viele Funktionen von Haus aus mit und man kann trotzdem noch alles steuern/verbieten oder sonstwas. Noch dazu unterstützt er OLE Drag&Drop und normales VCL Drag&Drop. Und den Aufklappmechanismus hat der Tree meines Wissens nach auch. (Kann man glaube ich sogar einstellen, wie der reagieren soll)

[Jumpy]

Bzgl. Cursor bei Drag & Drop hab ich mich seinerzeit hier schlau gemacht. Vielleicht hilft dir das Kapitel über "Customising the Drag Cursor" ja weiter:

http://www.blong.com/Conferences/Bor...stomComponents

[Sherlock]

Danke, Danke! Das hilft mir sehr viel weiter, Jumpy!
VirtualTreeView gedenke ich mir immer wieder anzusehen, werde aber von der mächtigkeit abgeschreckt Und für den dann doch simplen Anwendungsfall hier, wollte ich mir das nicht geben. Aber danke für den Hinweis.
Ich werde jetzt ein wenig lesen und basteln. Falls jemand interesse an dem Ergebnis hat, werd ich es noch hier posten.

Sherlock

[Jumpy]

Gerade über einen anderen Thread bei einer schönen Umsetzung deines Problems gelandet, allerdings für's Web. K.A. wie man das im Delphi TreeView umsetzen würde (Drag & Drop Plugin auswählen!):

cgdevtools TreeView Demo

[Sherlock]

Ohja, wunderschön Genau das will ich haben... Unglaublich, aber ich kämpfe immer noch mit dem Laden der Cursor Resources... Peinlich, Peinlich. Da kann man doch nicht so viel falsch machen. Einzelne .cur für die jeweiligen Curser erzeugen. Per Projekt->"Resourcen und Bilder" hinzufügen und gescheit benennen, im Create meiner Form dann mit zB Screen.Cursors[crAddChild] := LoadCursor(HInstance, 'CRADDCHILD'); eingebunden, und nix...der Cursor lässt sich nicht ändern...gnarf.

Ich gebs gleich auf und lass es wie es ist. Das rechnet sich schon alles nicht mehr

Sherlock