Sincronizar desplazamiento vertical en 2 ListBox

[jhonalone]

¡¡¡P E R F E C T O!!!

Sencillamente... ¡¡¡M A R A V I L L O S O!!!

Millones de gracias.

Eres muy G R A N D E egostar.

A pesar de la hora que es (la 1:08 de la noche) no he podido resistirme a darte las graacias.

Un saludo muy cordial.

[[egostar]]

Hola jhonalone

Me alegra que te haya servido, FMX tiene muchas cosas interesantes y ésta es una de ellas.

Saludos

[[egostar]]

Una pequeña mejora.

Código Delphi [-]
begin
  ListBox1.OnViewportPositionChange := ViewPortPositionChange;
  ListBox2.OnViewportPositionChange := ViewPortPositionChange;
end;

procedure TForm2.ViewPortPositionChange(Sender: TObject; const OldViewportPosition,
  NewViewportPosition: TPointF; const ContentSizeChanged: Boolean);
begin
  if (Sender as TListBox).Name = 'ListBox1' then
    ListBox2.ViewportPosition := NewViewportPosition
  else
    ListBox1.ViewportPosition := NewViewportPosition;
end;

Saludos