Sincronizar dos TGridView

[salvica]

Pues eso, que al pulsar en uno se seleccione la misma fila del otro.

Con pocos datos, en el OnCellClick fuciona bien, pero cuando son mucho soy incapaz de encontrar las filas que tengo por encima ni las visibles.

¿alguien sabe como se hace?
Saludos
Salvica

[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