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; VisRows : integer; begin
VisRow := TGridView(Sender).GetVisibleCount;
NumPage := ARow div VisRow;
GridView_1.ScrollToRow( NumPage*VisRow );
GridView_2.ScrollToRow( NumPage*VisRow );
GridView_3.ScrollToRow( NumPage*VisRow );
GridView_1.ScrollToRow( ARow );
GridView_2.ScrollToRow( ARow );
GridView_3.ScrollToRow( ARow );
GridView_1.SelectedRow := ARow;
GridView_2.SelectedRow := ARow;
GridView_3.SelectedRow := ARow;
end;
Saludos
Salvica