actualmente lo he probado todo, ya no se que mas me probar,
Código Delphi
[-]
for i:= TreeView1.SelectionCount-1 downto 0 do
begin
TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
TreeView1.Selections[i].Delete;
end;
me mueve el primer elemento siempre, solo el primero aunque marque el 4 me mueve el 1.
Código Delphi
[-]
for i := 0 to TreeView1.Items.Count-1 do
begin
if TreeView1.Items[i].Selected then
begin
TreeView2.Items.AddChild( nil, TreeView1.Items[i].Text);
TreeView1.Items[i].Delete;
Dec(cant);
end;
este es el codigo que estoy probando pero repito que cuando marco dos consecutivos me da el error parece que al borrar una posicion se marea, estoy usando delphi 6 y conexion a Oracle, son dos treeview y un boton que mueve los datos de un lado a otro solo eso,
Saludos