procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (sender as TTreeview).Selected<>nil then (sender as TTreeview).BeginDrag(false); end;procedure TForm1.TreeView1EndDrag(Sender, Target: TObject; X, Y: Integer); var T:Ttreenode; begin T:=(target as TTreeview).GetNodeAt(x,y); if T<>nil then (target as TTreeview).Items.AddChild(T,(sender as TTreeview).Selected.Text);end;procedure TForm1.TreeView2DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin if Source is TTreeview then accept:=true; end;
if T<>nil then (target as TTreeview).Items.AddChild(T,(sender as TTreeview).Selected.Text) else (target as TTreeview).Items.add(nil,(sender as TTreeview).Selected.Text)
Shift: TShiftState; X, Y: Integer);
begin
if (sender as TTreeview).Selected<>nil then
(sender as TTreeview).BeginDrag(false);
end;procedure TForm1.TreeView1EndDrag(Sender, Target: TObject; X, Y: Integer);
var T:Ttreenode;
begin
T:=(target as TTreeview).GetNodeAt(x,y);
if T<>nil then (target as TTreeview).Items.AddChild(T,(sender as TTreeview).Selected.Text);end;procedure TForm1.TreeView2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source is TTreeview then
accept:=true;
end;
else
(target as TTreeview).Items.add(nil,(sender as TTreeview).Selected.Text)