Código Delphi [-]
if ListOrigen.ItemIndex = -1 then
Showmessage('Debe seleccionar el item a cambiar')
else
begin
ListDestino.Items.Add(ListOrigen.Items.string[ListOrigen.ItemIndex]);
ListOrigen.Items.Delete(ListOrigen.ItemIndex);
end;
Espero te sirva
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|