Mover posiciones dentro de un list Box

[creus]

Subir o bajar de la primera a la ultima las posiciones de un list box. O moverlas dentro del mismo.

Gracias

[dec]

Hola,

Subir o bajar de la primera a la ultima las posiciones de un list box. O moverlas dentro del mismo.

Gracias

¿Pero lo estás preguntando o qué? Pabernosmatao.

[creus]

Si,si es una pregunta...lo he leido y la verdad es que parece la estrofa de una canción.

Necesito mover objetos dentro de un ListBox.

[dec]

Hola,

¿Pero moverlos mediante algún botón o algo? ¿Tal vez mediante "drag & drop"?

[creus]

Mover posiciones. El Ultimo nombre de una lista ponerlo el primero. El primero ponerlo el ultimo, por ejemplo.

[lag_0]

Creo que ese tipo de consultas con ese tipo de expresión las contesta un amigo mio, se llama google.

Tambien podrias dignarte a darte una vuelta por el autocompletar de delphi.

[dec]

Hola,

No has respondido a lo que te pregunto, pero, en todo caso, a bote pronto me sale algo como lo siguiente. Puedes adaptarlo a tu gusto. Son bienvenidas todas las rectificaciones que sean menester.

Código Delphi [-]
function MoverElementoListBox(listBox: TCustomListBox;
          moverElementoHaciaArriba: boolean) : boolean;
var
  textoElemento: string;
  indiceActual: integer;
  indicePosterior: integer;
begin
  if not Assigned(listBox) then
    raise Exception.Create('Es necesario un objeto TCustomListBox válido');

  indiceActual := listBox.ItemIndex;
  if(indiceActual = -1) then
  begin
    Result := false;
    Exit;
  end;

  if moverElementoHaciaArriba then
    indicePosterior := indiceActual-1
  else
    indicePosterior := indiceActual+1;

  if (indicePosterior = -1)
   or (indicePosterior > listBox.Count-1) then
  begin
    Result := false;
    Exit;
  end;

  listBox.ItemIndex := indicePosterior;
  textoElemento := listBox.Items[indicePosterior];
  listBox.Items[indicePosterior] := listBox.Items[indiceActual];
  listBox.Items[indiceActual] := textoElemento;

  Result := true;
end;

// Ejemplo de uso para mover un elemento hacia arriba
MoverElementoListBox(lbElementos, true);

// Ejemplo de uso para mover un elemento hacia abajo
MoverElementoListBox(lbElementos, false);

// "lbElementos" es un componente del tipo "TListBox"