Hi Karotte,
vielen Dank hast ins Schwarze getroffen ;o) Nur das EndDrag Ereignis vom rechten Baum muss genommen werden nicht vom linken danach funktioniert es *freu*
greetz Lun ;o)
*rumhüpf*
P.S: Manchmal sieht man eben die Bäume nicht wenn man im Wald steht...
hier nochmal der Quellcode falls das mal einer braucht:
Delphi-Quellcode:
procedure TForm1.VSTRechterBaumEndDrag(Sender, Target: TObject; X, Y: Integer);
var
zielKnoten : PVirtualNode;
quellKnoten : PVirtualNode;
zielDaten: PTreeData;
quellDaten : PTreeData;
quellID : String;
zielID : String;
begin
if Sender = VSTRechterBaum then
begin
if Assigned(VSTRechterBaum.FocusedNode) then
begin
zielKnoten := VSTlinkerBaum.GetNodeAt(X,Y);
zielDaten := VSTlinkerBaum.GetNodeData(zielKnoten);
zielID := TTreeDataClass(zielDaten.FObject).ID;
quellKnoten := VSTRechterBaum.FocusedNode;
quellDaten := VSTRechterBaum.GetNodeData(quellKnoten);
quellId := TTreeDataClass(quellDaten.FObject).ID;
if((zielID <> '') and (quellID <> ''))then
begin
//fülle Wertepaar in Datenbank
end;
end;
end;
end;