Hallo Zusammen,
ich habe einen Baum:
Parent1
Child1.1
Child1.2
Child1.3
Child1.4
Parent2
Child2.1
Child2.2
Child2.3
Child2.4
Jedes Node habe ich DATA Objekt hinterlegt:
Delphi-Quellcode:
type
PTreeData = ^TTreeData;
TTreeData = record
FCaption: String;
FParentID:Integer;
FChildID:Integer;
end;
Die Childs dürfen sich nur innerhalb demselben Parent bewegen.
Child2.* darf also nicht bei Parent1 abgelegt werden.
Das eigentliche Drag&Drop soll lediglich angezeigt werden jedoch im VST nicht ausgeführt werden.
Ich benötige also NUR den Zugriff auf das Data Object beim ziehen und ablegen, um die neue Position
in die Datenbank zu schreiben. Danach wird der komplette Bau neu aufgebaut.
Im OnDragOver würde ich gerne das darunter liegende Data Objekt abfragen und Accept:=true setzen nur wenn
die eigene ParentID die gleiche ist mit dem darunter liegenden Node.ParentID. Leider wird bei OnDragOver
das Node nicht übergeben.
Hat jemand eine Idee wir an das Node komme?
Gruß Kostas