реализация Drag /n/ Drop в TreeView

[nusik]

Сколько исходников перекопал ,ничерта не работает.
Спасибо.

[BaronTreep]

После того ка дерево создано, например так:

   N1 := TreeView1.Items.Add(nil, '1');
  TreeView1.Items.AddChild(N1, '2');
  TreeView1.Items.AddChild(N1, '3');
  TreeView1.Items.AddChild(N1, '4');
  N1 := TreeView1.Items.Add(nil, '5');
  TreeView1.Items.AddChild(N1, '6');
  TreeView1.Items.AddChild(N1, '7');
  TreeView1.Items.AddChild(N1, '8');

или

   TreeView1.LoadFromFile('...');

То нужно поставить свойство

TreeView1.DragMode := dmAutomatic;

Тогда претаскивать пункты можно кодом:

 procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: integer);
var
  Src, Dst : TTreeNode;
begin
  Dst := TreeView1.GetNodeAt(X, Y);
  if Dst <> nil then begin
        Src := TreeView1.Selected;
        Src.MoveTo(Dst, naAddChildFirst);
        Dst.Expand(False);
        TreeView1.Selected := Dst;
  end;
end;

Либо целые деревья:

 procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: integer;
  State: TDragState; var Accept: Boolean);
var
  Src, Dst : TTreeNode;
begin
  Dst := TreeView1.GetNodeAt(X, Y);
  if (Src = Sender) and (Dst <> nil) then begin
        Accept := True;
        Src := TreeView1.Selected;
        while (Dst.Parent <> nil) and (Dst <> Src) do
             Dst := Dst.Parent;
        if Src = Dst then
             Accept := False;
  end else
      Accept := False;
end;

[BaronTreep]

А если имелось в виде - кинуть ФАЙЛ в TreeView. То тогда примерно так:

 uses
  ... ShellApi;

type
  TForm1 = class(TForm)
  ...
  end;

type TTreeViewMOI = class(TTreeView)
  private
    procedure DragFile(var Message: TWMDropFiles); message WM_DROPFILES;
    procedure DragFileExecute(const FileName : string);
  public
  end;

var
  Form1 : TForm1;
  TreeView1 : TTreeViewMOI;

...

procedure TTreeViewMOI.DragFileExecute(const FileName : string);
begin
  TreeView1.LoadFromFile(FileName);
end;

procedure TTreeViewMOI.DragFile(var Message: TWMDropFiles);
var
  PFileName: array [0..255] of char;
begin
  try
    if DragQueryFile(Message.Drop, 0, PFileName, MAX_PATH) > 0 then
    begin
      Message.Result := 0;
      DragFileExecute(PFileName);
    end;
  finally
    DragFinish(Message.Drop);
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  TreeView1 := TTreeViewMOI.Create(Self);
  TreeView1.Parent := Self;
  DragAcceptFiles(TreeView1.Handle, True);
  TreeView1.Width := 500;
  TreeView1.Height := 400;
  // TreeView1....
end;

...

Проще что-то не догадался.

[nusik]

благодарю-с