Autoseleccion en Tlistbox - Delphi 7 -
 

Hola a todos;

necesito hacer una autoseleccion de los items de un ListBox conforme se vayan agregando nuevos, no encuentro como hacerlo, alguna sugerencia?

Saludos y gracias anticipadas

No entiendo bien qué es lo que quieres, pero para seleccionar un item, está la propiedad ItemIndex.
Supongo que después de agregarlo a Items deberás buscar la posición en la que se ha agregado y asignarla a ItemIndex

Código Delphi [-]
with Listbox1 do
begin
  // Se agrega un nuevo elemento
  Items.Add('Prueba');

  // Asigno la cantidad de elementos -1 como ItemIndex, porque el índice empieza en 0.
  ItemIndex := Items.Count -1;
end;

En versiones nueva hay un SelectAll (si es que necesitas multiselección).

Código Delphi [-]
uses
  System.DateUtils;

procedure TForm3.Button1Click(Sender: TObject);
begin
  // rellenar klos meses del año
  for var i := 1 to 12 do
    ListBox1.Items.Add(FormatDateTime('mmmm', EncodeDate(YearOf(Now), i, 1)));
  // Seleccionar todos
  ListBox1.MultiSelect := True;
  ListBox1.SelectAll;
end;

Voy a tratar de explicarme un poco mas:

Código Delphi [-]
     for x:=0 to Archivos.Items.Count-1 do
          Archivos.Selected[x] := cbseleccionar.checked;

Con un listbox y un checkbox consigo "seleccionar" todos los items... hasta aquí todo normal....

Pero quisiera implementar un método que, si agrego nuevos items al listbox en donde ya están seleccionados todos, los nuevos elementos aparezcan también seleccionados.

Aunque es muy sencillo seleccionar y quitar la seleccion a los items con el checkbox, los usuarios no quieren "molestarse" en hacer dos click para seleccionar los items que se agregan. :mad:

Código Delphi [-]
ListBox1.SelectAll;

¿En que evento lo invocarías?... suponiendo que ya tienes items seleccionados y agregas más.

Me quedan dudas...
¿Hay algunos seleccionados y otros no?
¿Hay que marcarlo como seleccionado cuando al menos haya uno seleccinoado?
¿Hay que marcarlo como seleccionado cuando todos estén seleccinoados?

En cualquier caso, debes tener una función que agrega el item a la lista... allí es donde debes implementar la selección.

Por ejemplo,

Código Delphi [-]
procedure AgregarFichero(Fichero:string);
begin
  // Agrego Item
  Archivos.Items.Add(Fichero);

  // Marco todo como seleccionado
  Archivos.Items.SelectAll;
end;

o

Código Delphi [-]
procedure AgregarFichero(Fichero:string);
var 
  x : integer;
begin
  // Agrego Item
  Archivos.Items.Add(Fichero);

  // Marco los items segun cbseleccionar
  for x:=0 to Archivos.Items.Count-1 do
    Archivos.Selected[x] := cbseleccionar.checked;
end;

o

Código Delphi [-]
procedure AgregarFichero(Fichero:string);
var 
  x : integer;
  HayAlgunArchivoSeleccionado : boolean;
begin
  // Agrego Item
  Archivos.Items.Add(Fichero);

  // Si hay por lo menos uno seleccionado, selecciono el fichero insertado
  HayAlgunArchivoSeleccionado := False;
  for x:=0 to Archivos.Items.Count-1 do
    if Archivos.Selected[x] then
      HayAlgunArchivoSeleccionado := True;

  if HayAlgunArchivoSeleccionado then
  begin
    for x:=0 to Archivos.Items.Count-1 do
      if (Archivos.Items[x] = Fichero) then
        Archivos.Selected[x] := True;
  end;
end;

Tan obvio como sencillo, de verdad que uno se ofusca tratando de encontrar el "hilo negro"... Disculpen por tomar su tiempo en algo que ahora me parece tan tonto por no haberlo visto.

Gracias por su ayuda amigos

En ningún evento, llámado después de agregar los nuevos elementos.