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"

[creus]

Gracias Dec creo que con esto podré adaptarlo.

[creus]

Respecto a lag_0 veo que la humildad y el respeto por la ignorancia de la gente nobel en este campo, no estan de tu parte.

De todas maneras gracias por recomendarme a tu amigo, Google, una ayuda es una ayuda.

Gracias de nuevo.

[dec]

Hola,

Creus, creo que el compañero iba más bien por lo escueto de tu pregunta, es decir, que ha podido malinterpretarse como que se planteaban con poca voluntad, como un "coge la respuesta y corre".

No temas explayarte en los Foros cuanto te sea menester. Contra más explicada una pregunta (lo que no quiere decir prolija, claro está) más posibilidades de que alguien se implique en una posible solución al problema.

En todo caso, todo esto es producto, seguro, del medio en que nos encontramos... no es lo mismo conversar, verse uno las caras, los gestos, que escribirnos y leernos, que es algo que se presta a veces a interpretaciones varias.

Así que no discutamos, ¿eh? Vamos a llevarnos bien.

[jachguate]

Sobre lo0 escueto de las preguntas, te invito a leer el hilo de la calidad de las preguntas.

Hasta luego.

[creus]

Gracias por la informacion. Agradecido

[[Lepe]]

Esto... yo no es por fastidiar... o si , pero el TString tiene definido el método Move

Código Delphi [-]
procedure Move(CurIndex: Integer; NewIndex: Integer); virtual;

Use Move to move the string at position CurIndex so that it occupies the position NewIndex. The positions are specified as 0-based indexes. For example, the following lines of code move the string in the first position to the last position

MyStringsObject.Move(0, MyStringsObject.Count)

Saludos

[dec]

Hola,

Empezado por Lepe

Esto... yo no es por fastidiar... o si , pero el TString tiene definido el método Move

A ver, David, métetelo en tus mientes:

"TStrings" cuenta con un método "Move"
"TStrings" cuenta con un método "Move"
"TStrings" cuenta con un método "Move"