5 replies to this topic

[Djcheats]

Hola saludos a la comunidad tengo un Problema que no se como solucionar.

tengo 2 ListBox con cierta cantidad de items..  quiero que cuando baje el scroll del listbox1 tambien se baje el Listbox2 e buscado información y nada espero que me echen una mano

[egostar]

Hola Djcheats

A ver si con esto te funciona

delphi

procedure TForm2.ListBox1Click(Sender: TObject);
begin
  ListBox2.ItemIndex := ListBox1.ItemIndex;
end;
 
procedure TForm2.ListBox2Click(Sender: TObject);
begin
  ListBox1.ItemIndex := ListBox2.ItemIndex;
end;

Saludos

[Djcheats]

Gracias por responder.

en este momento ya yo lo tenia programado de esa forma pero no logra el efecto que yo quiero.

lo que quiero es que cuando baje el scroll baje el otro automáticamente.

[Caral]

Hola

delphi

procedure TForm1.ListBox1Click(Sender: TObject);
var
   n:Integer;
begin
  for n:= 0 to Listbox1.Items.Count -1 do
  begin
  ListBox2.Selected[n]:=  ListBox1.Selected[n];
  end;
end;

Saludos

Editado....

[Djcheats]

Gracias me a funcionado mas o menos otra pregunta rápida si no es mucha molestia como desactivo el scroll al listbox2

[Caral]

Hola
La unica manera que he conseguido quitar el scroll es modificando el dato del procedimiento columns y acomodando el tamaño a ese dato.
Me imagino que habrá otra manera, pero no lo se.
Saludos