¿Cómo puedo conectar dos ListBox de forma que si selecciono una se selecciona la otra
 

Hola a todos:
¿Cómo puedo conectar dos ListBox de forma que si selecciono una se selecciona la otra?, es decir, si selecciono la primera fila de una se selecciona la primera fila de la otra.
Es que se me ocurre algo pero muy complicao.
¿Cómo puedo saber el nº de filas que tiene un ListBox??
Gracias a quien pueda ayudarme;)
Atentamente
Nuri

Hola,

Puedes hacer uso de las propiedades "ItemIndex" y "Count" de los "TListBox". Echa un vistazo al "ejemplo" adjunto a ver qué te parece.

Teng el Delphi5 por lo tanto no me vale la propiedad count para Listbox pero me ha servido tu idea.
Simplemente he hecho:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
begin
i:=ListBox1.ItemIndex;
Listbox2.ItemIndex:=i;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
var i:integer;
begin
i:=ListBox2.ItemIndex;
Listbox1.ItemIndex:=i;
end;

Okis
Muchas gracias;)
Atentamente
Nuri

Hola,

Si no encuentras la propiedad "Count" en el propio "TListBox" prueba a encontrar dicha propiedad en la propiedad "Items" del TListBox".

Es decir, en lugar de esto:

Código Delphi [-]
 ListBox1.Count;

Trata de hacer algo como esto:

Código Delphi [-]
 ListBox1.Items.Count;