VirtualTreeView + Drag&Drop ohne das Knoten angehängt werden

[Lun]

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;