Código Delphi [-] procedure TForm1.ListBox3Click(Sender: TObject); var i:integer; begin i:=listbox3.ItemIndex; listbox1.ItemIndex :=i; listbox2.ItemIndex :=i end;
procedure TForm1.ListBox3Click(Sender: TObject); var i:integer; begin i:=listbox3.ItemIndex; listbox1.ItemIndex :=i; listbox2.ItemIndex :=i end;