Autoseleccion en Tlistbox - Delphi 7 -

[[duilioisola]]

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;

[ArtPortEsp]

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