Drag&Drop mit VirtualTreeView

[Apollo13]

Zitat:

hm... ich glaube die Glaskugel von Luckie habe ich ihm wieder gegeben.

wat???

nee also wegen dem VTV: ich möchte einen Eintrag, also eine Node draggen und an einer anderen Stelle im Baum wieder einfügen können...

im MouseDown-Event wird drag auf true gesetzt, dann:

Code:

procedure TForm1.VtreeMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Node: PVirtualNode;
  Data: PTreeData;
begin
  if drag=true then 
  begin
    SelectNode := vtree.GetNodeAt(x,y);
    if SelectNode<>nil then
    begin
      //Data := vtree.GetNodeData(SelectNode);
      vtree.BeginDrag(drag);
      //(Data^.FObject.FGrBezeichnung);
    end;
  end;
end;

Code:

procedure TForm1.VtreeMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  drag := false;
  vtree.EndDrag(drag);
end;

Code:

procedure TForm1.VtreeDragOver(Sender: TBaseVirtualTree; Source: TObject;
  Shift: TShiftState; State: TDragState; Pt: TPoint; Mode: TDropMode;
  var Effect: Integer; var Accept: Boolean);
begin
  Accept := true;
end;

procedure TForm1.VtreeEndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  vtree.InsertNode(SelectNode,amInsertAfter);
end;