Tlistbox

[JaMFrY]

Me gustaria saver cual es el odigo para selecionar todos los Items de una Tlistbox, gracias .

[Bacterion]

Creo que tienes que hacer un pequeño bucle (por todos los items) e ir poniendo Selected[Index] a True. Así de sencillo.

[Ruben_Cu]

Hola JaMFrY, vale lo que te indica Bacterion pero debes poner la propiedad MultiSelect a true sino no te funciona con el bucle.
Saludos

[roman]

En Delphi7 existe el método SelectAll del ListBox. En caso de que en tu versión no esté implementado puedes mandar tu mismo el mensaje adecuado al control para evitarte el bucle:

ListBox1.Perform(LB_SETSEL, 1, -1);

Y para deseleccionar todos sería:

ListBox1.Perform(LB_SETSEL, 0, -1);

// Saludos

[Ruben_Cu]

Hola amigos, delphi 6 también tiene el método SelectAll para el ListBox y funciona siempre que se haga lo que comenté en mi post anterior.
Saludos

[[Lepe]]

Hola:

¿Puedo hacer una sugerencia?

A lo mejor no te sirve para tu caso especial jamfry , pero puede que se vea mas elegante un TcheckListBox que viene en la paleta Additional de delphi, eso si, tienes que hacer los bucles, pero en fin, allá va:

procedure TFrmOpcionesDeBusqueda.BitBtn1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to cbbuscaexe.Count-1 do
 cbbuscaexe.Checked[i]:=true; //marcar todos
end;

procedure TFrmOpcionesDeBusqueda.BitBtn2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to cbbuscaexe.Count-1 do
 cbbuscaexe.Checked[i]:=false;  // desmarcar todos
end;

y para saber los que estan marcados:

procedure TfrmPPal.btBuscarClick(Sender: TObject);
var i:integer;
       Abuscar:Tstringlist;

begin //boton buscar
abuscar:=Tstringlist.Create;
 try
 // solo buscamos los que estan activados en las opciones
  with frmopcionesdebusqueda do
  begin
    for i:=0 to cbbuscaexe.Count-1 do
       if cbbuscaexe.Checked[i] then
         abuscar.Add(cbbuscaexe.Items[i])
  end;
finally

 // antes de liberar, tendrás que hacer lo que quieras
  abuscar.free;
end;

Con este código tienes un Stringlist (Abuscar) donde tienes todos los elementos que se marcaron en el TcheckListBox.


Saludos.