Hola.
Cita:
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.