ja mozna usunac zaznaczony element a jego subitemy przeniesc do gory.
np.
z czegos tskiego:
-root
-nazwa
-nazwa1
-nazwa2
-nazwa3
-root
otryzmac
-root
-nazwa1
-nazwa2
-nazwa3
-root
ja mozna usunac zaznaczony element a jego subitemy przeniesc do gory.
np.
z czegos tskiego:
-root
-nazwa
-nazwa1
-nazwa2
-nazwa3
-root
otryzmac
-root
-nazwa1
-nazwa2
-nazwa3
-root
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x := 0;
while x <= TreeView1.Items.Item[0].Item[0].Count -1 do
begin
TreeView1.Items.Item[0].Item[0].Item[x].MoveTo(TreeView1.Items.Item[0].Item[0],naAdd);
end;
TreeView1.Items.Item[0].Item[0].Delete;
end;
nudziło mi sie to zrobiłem coś bardziej uniwersalnego:
procedure WGore(Node: TTreeNode);
var
x: integer;
begin
x := 0;
while x <= Node.Count -1 do
begin
Node.Item[x].MoveTo(Node,naAdd);
end;
Node.Delete;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WGore(TreeView1.Selected);
end;
dzieki bardzo i to mi chodzilo.kombinowalem samemu ale przesuwalo mi to w odwrotnej kolejnosci