TMSFMXTreeView Drag & Drop

FMX TMS FMX UI Pack
1

How to visible indicate a Treeview item is set to dragmode inside MouseDown event?

Is there any example for dragging Nodes in a treeview?
2
found a example by myself....

procedure TForm111.TMSFMXDirectoryTreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  FMouseDown := True;
end;

procedure TForm111.TMSFMXDirectoryTreeView1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Single);
var
  vn: TTMSFMXTreeViewVirtualNode;
  ddService: IFMXDragDropService;
  d: TDragObject;
begin
  vn := TMSFMXDirectoryTreeView1.XYToNode(X, Y);
  if Assigned(vn) and FMouseDown then
  begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, DDService) then
    begin
      d.Source := vn;
      DDService.BeginDragDrop(Self, d, TMSFMXDirectoryTreeView1.MakeScreenshot);
    end;
  end;
end;

procedure TForm111.TMSFMXDirectoryTreeView1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  FMouseDown := False;
end
3

Thank you for your feedback.