Копирование перетаскиванием ветвей TreeView

[Arteom]

Подскажите пожалуйста, как сделать так, чтобы можно было копировать одну ветвь TreeView в другую.

[mihali4]

Например, так:

procedure TForm1.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var nnod,nnos: TTreeNode;
begin
...
if Source is TTreeView then
begin
nnos:=(Source as TTreeView).Selected;
nnod:=(Sender as TTreeView).DropTarget;
if nnod=nil then
exit;
Accept:=False;
if nnos<>nnod then
Accept:=True;
end;
end;

procedure TForm1.TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
...
TreeView.Items.BeginUpdate;
(Source as TTreeView).Selected.MoveTo((Sender as TTreeView).DropTarget,
 naAddChild); //последний параметр - выберете сами...
TreeView.Items.EndUpdate;
end;

А вообще - жмем F1 и смотрим хэлп по TreeView, там подобные примеры тоже есть...

[Arteom]

спасибо большое