Este codigo es lo que estoy utilizando para copiar de un listbox a otro...
Código Delphi
[-]procedure TrpCliente.btnEnviarClick(Sender: TObject);
begin
if listbox1.ItemIndex>=0 then
begin
listbox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
listbox1.Items.Delete(listbox1.ItemIndex);
end;
END;
procedure TrpCliente.btnTraerClick(Sender: TObject);
begin
if listbox2.ItemIndex>=0 then
begin
listbox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
listbox2.Items.Delete(listbox2.ItemIndex);
end;
end;
procedure TrpCliente.btnEnvTodClick(Sender: TObject);
var m:integer;
begin
m:=listbox1.Items.Count;
while m>=1 do
begin
listbox1.ItemIndex:=0;
listbox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
listbox1.Items.Delete(listbox1.ItemIndex);
m:=m-1;
end;
end;
procedure TrpCliente.btnTraerTodoClick(Sender: TObject);
var n:integer;
begin
n:=listbox2.Items.Count;
while n>=1 do
begin
listbox2.ItemIndex:=0;
listbox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
listbox2.Items.Delete(listbox2.ItemIndex);
n:=n-1;
end;
end;procedure TrpCliente.btnEnviarClick(Sender: TObject);
begin
if listbox1.ItemIndex>=0 then
begin
listbox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
listbox1.Items.Delete(listbox1.ItemIndex);
end;
END;
procedure TrpCliente.btnTraerClick(Sender: TObject);
begin
if listbox2.ItemIndex>=0 then
begin
listbox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
listbox2.Items.Delete(listbox2.ItemIndex);
end;
end;
procedure TrpCliente.btnEnvTodClick(Sender: TObject);
var m:integer;
begin
m:=listbox1.Items.Count;
while m>=1 do
begin
listbox1.ItemIndex:=0;
listbox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
listbox1.Items.Delete(listbox1.ItemIndex);
m:=m-1;
end;
end;
procedure TrpCliente.btnTraerTodoClick(Sender: TObject);
var n:integer;
begin
n:=listbox2.Items.Count;
while n>=1 do
begin
listbox2.ItemIndex:=0;
listbox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
listbox2.Items.Delete(listbox2.ItemIndex);
n:=n-1;
end;
end;