list box delphi

[ecfisa]

Hola.

con esos eventos en cada uno,cuando selecciono un items de uno se seleciona un items de otro listbox?

Si, así es, pero no cualquier item; se seleccionará el item que se corresponde a la posición donde se hizo un click. La propiedad ItemIndex especifica el item seleccionado actualmente.

Si el número de ítems difiere de un ListBox al otro tendrías que hacer:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex <= ListBox2.Items.Count then
     ListBox2.ItemIndex:= ListBox1.ItemIndex;
end;

procedure TForm1.ListBox2Click(Sender: TObject);
begin
  if ListBox2.ItemIndex <= ListBox1.Items.Count then
   ListBox1.ItemIndex:= ListBox2.ItemIndex;
end;

Ahora si lo que buscas es agregar la propiedad OnChange a un TListBox para detectar el cambio cuando te desplaces con las teclas Up y Down, en este enlace encontrarás el código: List Box+Drag and Drop+OnChange.


Un saludo.