Os mostramos este código en Delphi que permite subir o bajar un elemento de una lista (TListBox) pasada como parámetro. Con lo cual este procedimiento sirve para cualquier aplicación y cualquier TListBox. Comprueba si hay algún elemento seleccionado, en cuyo caso no hará nada (no da error), también comprueba si es el último o el primer elemento para que no de error.

El código del procedimiento:

procedure subirElementoLista (lista : TListBox; subir : boolean);
var
  posicionActual : integer;
begin
  posicionActual := lista.ItemIndex;
  if posicionActual <> -1 then
  begin
    if subir then
    begin
      if posicionActual > 0 then
      begin
        lista.Items.Move(posicionActual, posicionActual - 1);
        lista.ItemIndex := posicionActual - 1;
      end;
    end;
    if not subir then
    begin
      if posicionActual < lista.Count - 1 then
      begin
        lista.Items.Move(posicionActual, posicionActual + 1);
        lista.ItemIndex := posicionActual + 1;
      end;
    end;
  end;
end;

procedure TformMenuPrincipal.actOrigenSubirExecute(Sender: TObject);
begin
  subirElementoLista(lsCopiaCarpetas, true);
end;

procedure TformMenuPrincipal.actOrigenBajarExecute(Sender: TObject);
begin
  subirElementoLista(lsCopiaCarpetas, false);
end;

Publicado el: 2007-09-05