Mirror

Move items in TreeView by drag&drop method (Views: 713)


Problem/Question/Abstract:

Move items in TreeView by drag&drop method

Answer:

procedure TfrmMain.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if TreeView1.Selected.Level = 0 then
    Accept := False;
end;

procedure TfrmMain.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if TreeView1.GetNodeAt(x, y).Level = 1 then
    TreeView1.Items.Add(TreeView1.GetNodeAt(x, y), TreeView1.Selected.Text)
  else
    TreeView1.Items.AddChild(TreeView1.GetNodeAt(x, y), TreeView1.Selected.Text);
  TreeView1.Selected.Delete;
  TreeView1.AlphaSort;
end;

end.

<< Back to main page