Hallo Hawkeye,
würdest Du bitte noch ein Blick auf meine DragDrop Methode werfen,
der Node sollte eigentlich verschoben werden. Doch er verschwindet
einfach nach dem Drop.
Eigentlich brauche ich es nicht weil ich den Bau neu aufbauen lasse,
aber so müsste sich doch der Node verschieben lassen oder?
Delphi-Quellcode:
procedure TfrLigen.VSTDragDrop(Sender: TBaseVirtualTree; Source: TObject;
DataObject: IDataObject; Formats: TFormatArray; Shift: TShiftState;
Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
SourceNode, TargetNode: PVirtualNode;
DropMode: TVTNodeAttachMode;
begin
inherited;
SourceNode := VST.FocusedNode;
TargetNode := Sender.DropTargetNode;
case Mode of
dmAbove: DropMode := amInsertBefore;
dmOnNode: DropMode := amInsertAfter;
dmBelow: DropMode := amInsertAfter;
end;
VST.MoveTo(SourceNode, TargetNode, DropMode, true);
end;
Gruß Kostas