TadvDirectoryTreeView - >TadvTreeview Drag and dropp

VCL TMS VCL UI Pack
1

Hi
I have problems to get the node created from a drag and dropp to TadvTreeview

procedure TTMSForm2.AdvTreeViewFDVAfterDropNode(Sender: TObject; AFromNode,
AToNode: TAdvTreeViewVirtualNode);

AFromNode is node in TadvDirectoryView.
AToNode becomes parent node in TAdvTreeView

How to get the new node that has been dropped on to advtreeview?

kind regards
Birger

2

You can use the following code for custom drag & drop, accessing the node from the directory treeview:

procedure TForm1.AdvCustomTreeView1DragOver(Sender, Source: TObject; Point: TPointF; var Accept: Boolean);
var
  n: TAdvTreeViewVirtualNode;
begin
  n := (Source as TAdvDirectoryTreeView).DragNode;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvDirectoryTreeView1.Interaction.DragDropMode := tdmCopy;
  AdvTreeView1.OnCustomDragOver := AdvCustomTreeView1DragOver;
end;