Hola a todos tengo el siguiente problema:
Tengo dos treeview y 2 botones, lo que me hace falta hacer es seleccionar un hijo del treview1 y que cuando doy al boton se pasen para el treview2, para 1 solo elementos todo muy feliz, pero si me seleccionan mas de uno por ejemplo 2 elementos me da que se va de rango.
Código Delphi
[-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
cant: Integer;
i: Integer;
begin
Seleccionados := TStringList.Create;
cant := TreeView1.SelectionCount;
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].Destroy;
Dec(cant);
end;
if cant = 0 then
Break;
end;
end;
Aqui esta todo el codigo el error ocurre a partir de que borro los elementos del treeview1, si no lo borro me los copia bien y todo pero si no me da error de rango o me borra el que no es.
Saludos