Sincronizar dos TGridView

[salvica]

Vale, me repondo yo mismo y lo cierro.

Código Delphi [-]
procedure TForm_Main.GridView_TODOS_OnCellClick(Sender: TObject; ACol, ARow: Integer);
var
  NumPages : integer; //-----> número de páginas a salta
  VisRows  : integer; //-----> número de filas visibles
begin
{ calcular las filas que se ven en el GridView }
  VisRow  := TGridView(Sender).GetVisibleCount;

{ calcular las paginas saltadas }
  NumPage := ARow div VisRow;

{ hacer un scroll para que se posicione la primera fila }
  GridView_1.ScrollToRow( NumPage*VisRow );
  GridView_2.ScrollToRow( NumPage*VisRow );
  GridView_3.ScrollToRow( NumPage*VisRow );

{ hacer un scroll para que se posicione en la fila seleccionada }
  GridView_1.ScrollToRow( ARow );
  GridView_2.ScrollToRow( ARow );
  GridView_3.ScrollToRow( ARow );

{ activar la fila seleccionada }
  GridView_1.SelectedRow := ARow;
  GridView_2.SelectedRow := ARow;
  GridView_3.SelectedRow := ARow;
end;

Saludos

Salvica