VirtualTreeView: Problem mit MoveTo - Wann ist schluß?

[Hedge]

Ich habe in meinem Programm eine VirtualTreeView mit mehreren Elementen 0. Ordnung der mehrere Elemente 1. Ordnung jeweils untergeordnet sind.

Es gibt einen Button mit dem man ein Objekt um eine Stelle nach unten bewegen kann.
Das Problem war zu erkennen wann das nicht mehr geht.
Bei den Elementen 1. Ordnung ging dies relativ einfach mit:

if (VST.FocusedNode<>VST.BottomNode) Bei Elementen der 0. Ordnung geht das natürlich nicht, weil die Node im Fokus ja nur die BottomNode auf ihrem Level ist.

Ich habe jetzt eine Stunde unzählige Sachen versucht, aber wenn man nach unten drückt dann springt das letzte Element 0. Ordnung eben auch wieder nach ganz oben.

Bewegt werden die Objekte 0. Ordnung mit folgendem Code:

VST.MoveTo(VST.FocusedNode, VST.GetNextSibling(VST.FocusedNode), amInsertAfter, false)

[Tegi]

Um die nächste/vorherige Node auf einem bestimmten Level zu bekommen, kannst du folgende Funktionen nutzen:

Delphi-Quellcode:

function TBaseVirtualTree.GetNextLevel(Node: PVirtualNode; NodeLevel: Cardinal): PVirtualNode;
function TBaseVirtualTree.GetPreviousLevel(Node: PVirtualNode; NodeLevel: Cardinal): PVirtualNode;

Beide Funktionen liefern NIL zurück, wenn keine Node mehr auf dem gewünschten Level existieren.

[Hedge]

Danke dir, die Lösung hab ich durch probieren ein wenig später am Abend noch gefunden, jedoch vergessen sie hier zu posten